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1.  INTRODUCTION 

Electromagnetic  pulse  effects  of  nuclear  weapons  deployed  at  high 
altitudes  (HEMP)  can  seriously  degrade  tactical  weapon  and  communication 
systems  vitally  needed  by  the  field  Army  prepared  to  fight  a 
conventional  and  nuclear  war.  The  Multiple  Systems  Evaluation  Program 
(MSEP)  was  established  to  determine  both  the  vulnerability  and  the  means 
for  hardening  a large  number  of  these  Army  tactical  systems  to  a HEMP 
environment.  An  essential  step  in  the  program  is  to  develop  analytic 
tools  (such  as  computer  programs  for  predicting  transient  data  and 
system  response)  to  evaluate  system  susceptibility  to  HEMP.  These 
computer  programs  have  been  gathered  into  an  applications  package  titled 
"Generic  Assessment  Methods  for  a Priori  Hardening  of  Systems" 
(GAMPHS) . 1 The  GAMPHS  application  for  the  vulnerability  and  hardness 
assessment  of  systems  covered  by  the  MSEP  uses  the  programs  described  in 
this  report  in  addition  to  other  computer  programs  (fig.  1) . 
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Figure  1.  Application  .of  generic  assessment  methods  for  a priori 
hardening  of  systems  (GAMPHS)  in  vulner ability  and 
hardness  assessment. 


1 George  Gornak  et  al , EMP  Assessment  for  Army  Tactical  Communications 
Systems:  Transmission  Systems  Series  No.  1 , Radio  Terminal  Set 
A N/TRC-145  (U) , Harry  Diamond  Laboratories  TR~1746  (February  1976) . 
(SECRET) 


This  report  describes  four  interrelated  groups  of  computer  programs 
that  are  used  to  update  the  diode  and  transistor  data  bases  for  use  with 
DAMTRAC  and  to  point  out  the  contents  of  these  data  bases.  These  bases 
currently  contain,  in  addition  to  standard  Transient  Radiation  Analysis 
by  Computer  (TRAC)  parameters  (sect.  4),  measured  and  calculated  damage 
parameters  (sect.  4) , with  references  on  the  original  source  of  each 
datum.  This  manual  describes  the  purpose,  applications,  limitations, 
and  possible  future  enlargements  of  the  semiconductor  data  base.  It  is 
intended  to  be  useful  to  scientists,  engineers,  and  programmers  working 
on  the  assessment  of  damage  to  circuits,  with  discrete  semiconductor 
components,  from  an  EMP  environment.  It  can  be  of  use  also  to  designers 
and  program  managers  in  this  subject  as  a readily  available  source  of 
EMP  damage  testing  data,  with  information  on  the  sources  of  these  data. 

Main  program  DTABSE  and  its  associated  subroutines  are  used  to 
update  or  alter  the  diode  damage  data  base,  residing  on  mass  storage  at 
a Control  Data  Corp.  (CDC)  6600  computer,  as  required  by  the  user.  He 
can  delete  or  alter  individual  data  and  their  references,  the  references 
only,  or  the  complete  record.  He  can  add  TRAC  or  damage  data  to 
existing  records  or  add  complete  new  data  records  for  new  devices  to 
this  data  base.  To  perform  any  change  to  an  existing  record,  the  user 
must  identify  the  specific  record  by  its  name  in  the  NAMED  INDEX  ARRAY. 
(Normally,  the  JEDC  device  type  number  is  used.)  When  creating  a new 
record,  he  must  specify  such  a name,  which  must  be  different  from  all 
the  existent  names  in  the  array.  A listing  of  all  devices  with  their 
characteristics  which  are  currently  in  the  data  base  can  be  obtained  by 
running  the  program  TSTUPDT . 

Main  program  DTATRNS  can  perform  the  same  type  of  modification, 
deletion,  or  addition  to  the  transistor  damage  data  base  as  DTABSE  does 
to  the  diode  data  base.  All  damage  data  on  transistors  are  separated  by 
their  application  to  the  emitter-base  (E-B)  or  collector-base  (C-B) 
junctions.  All  collector-emitter  (C-E)  measurements  were  screened  out 
(sect.  6).  A listing  of  all  devices  in  the  transistor  data  base,  their 
characteristics,  and  the  sources  of  the  data  can  be  obtained  by  running 
the  program  TRNUPDT. 

These  programs  store,  within  each  record,  a single  10-hollerith- 
character  data  word  as  the  reference  source  for  all  the  TRAC  parameters 
within  that  record,  while  the  damage  parameters  have  individual  source 
references  for  each  data  word.  These  damage  parameter  references  are 
encoded  into  three  octal  characters.  The  detailed  source  for  each  of 
these  octal  references  is  given  in  appendix  A. 

Appendix  B lists  the  main  programs.  Detailed  descriptions  of  all 
the  subroutines  required  to  support  these  main  programs  are  given  in 
appendix  C. 
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2.  PURPOSE  AND  USES 

The  organizations  and  people  working  on  the  analysis  of  electrical 
systems  in  a nuclear  EMP  environment  are  trying  to  determine  the 
response  of  discrete  semiconductor  devices  within  circuits  exposed  to 
this  environment.  Several  organizations  are  measuring  the 
characteristics  of  semiconductor  devices  being  subjected  to  electrical 
pulses  similar  to  those  produced  by  an  EMP.  Unfortunately,  standard 
test  procedures  for  this  analysis  do  not  exist,  so  the  sources  of  data 
and  the  procedures  used  may  have  to  be  evaluated  before  the  data 
themselves  can  be  applied  in  a specific  instance.  Furthermore,  no 
coherent  model  uses  all  these  measurements  in  the  transient  analysis 
circuit  codes. 

We  are  attempting  to  concentrate  all  the  available  data  on  damage 
testing  of  semiconductors  into  a single  data  base,  with  a uniform 
format,  which  can  be  used  by  existing  circuit  analysis  codes.  This 
document  describes  how  we  have  created  a data  base  on  mass  storage  of  a 
CDC  6600  that  is  in  a format  usable  by  DAMTRAC . (DAT’TRAC2  is  a version 
of  the  TRAC3  circuit  analysis  code,  which  has  been  modified  by  the  Harry 
Diamond  Laboratories  (HDL)  to  accept  free  format  inputs  and,  more 
importantly,  has  a model  for  determining  the  onset  of  damage  in  a 
semiconductor  during  a transient  analysis  run.) 
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Figures  3 to  6 show  how  the  four  programs  relate  to  each  other. 
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Figure  3.  DTABSE  and  its  subroutines. 
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Figure  4.  TRNSBSE  and  its  subroutines. 
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Figure  5.  TSTUPDT  and  its  subroutines. 
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Figure  6.  TRNUPDT  and  its  subroutines. 
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4.  DATA-BASE  STORAGE  FORMATS 


4,1  Diode  Data  Base 

For  each  record,  these  parameters  apply: 

Word  Parameter 

1 Reverse  saturation  current 

2 Diode  proportionality  constant 

3 Leakage  resistance 

4 Junction  capacitance  at  zero  bias 

5 Diffusion  voltage 

6 Diode  time  constant 

7 Ambient  photo  current 

8 Breakdown  voltage 

9 Reverse  surge  impedance  (0.1-us  pulse  width)  (if  data 
are  available) 

10  10-character  reference  source  for  first  nine  data  words 

11  Forward  bulk  resistance  of  diode 

12  Reverse  surge  impedance  for  1-ps  square  pulse 

13  Reverse  surge  impedance  for  10-ys  square  pulse 

14  Measured  reverse  damage  constant  (t  < 50  ns) , K = Px 

15  Measured  reverse  damage  constant  (t  > 50  ns) , K = V-h- 

16  Measured  forward  damage  constant  by  using  K = Px 

17  Optional  damage  constant  data  word 

18  Optional  damage  constant  data  word 

19  Optional  damage  constant  data  word 

20  Optional  damage  constant  data  word 

21  Optional  damage  constant  data  word 

22  Optional  damage  constant  data  word 
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Words  1 to  9 are  standard  TRAC  parameters  for  diodes.  Words  11 
to  16  have  the  reference  for  the  source  of  the  data  encoded  into  the 
three  least-significant  octal  characters  of  the  data  word.  Words  17  to 
22  have  the  reference  encoded  in  the  same  fashion,  when  data  exist  for 
them. 


4.2  Transistor  Data  Base 

For  each  record,  these  parameters  apply: 

Word  Parameter 

1 Normal  common  emitter  current  gain 

2 Inverse  common  emitter  current  gain 

3 Emitter  time  constant 

4 Collector  time  constant 

5 Collector  reverse  saturation  current 

6 C-B  proportionality  constant  in  exponent 

7 C-B  junction  capacitance  at  zero  bias 

8 C-B  junction  diffusion  potential 

9 C-B  leakage  resistance 

10  E-B  reverse  saturation  current 

11  E-B  proportionality  constant  in  exponent 

12  E-B  junction  capacitance  at  zero  bias 

13  E-B  junction  diffusion  potential 

14  E-B  leakage  resistance 

15  Primary  photocurrent  for  C-B  junction 

16  Primary  photocurrent  for  E-B  junction 

17  C-B  breakdown  voltage 

18  E-B  breakdown  voltage 
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Word  Parameter 

19  C-B  reverse  surge  impedance  (0.1-ps  pulse  width) 

20  E-B  reverse  surge  impedance  (0.1-us  pulse  width) 

21  10-character  reference  source  for  first  20  data  words 

22  C-B  junction  forward  bulk  resistance 

23  E-B  junction  forward  bulk  resistance 

24  C-B  reverse  surge  impedance  (1-ps  pulse  width) 

25  C-B  reverse  surge  impedance  (10-ys  pulse  width) 

26  E-B  reverse  surge  impedance  (1-us  pulse  width) 

27  E-B  reverse  surge  impedance  (10- ms  pulse  width) 

28  C-B  reverse  biased  damage  constant  (t  < 50  ns) , K = Pt 

29  E-B  reverse  biased  damage  constant  (x  < 50  ns) , K = Px 

30  C-B  reverse  biased  damage  constant  (x  > 50  ns),  K = Px35 

i, 

31  E-B  reverse  biased  damage  constant  (x  > 50  ns) , K = Px 

32  C-B  forward  biased  damage  constant,  K = Px 

33  E-B  forward  biased  damage  constant,  K = Px 

34  Optional  C-B  damage  constant 

35  Optional  E-B  damage  constant 

36  Optional  C-B  damage  constant 

37  Optional  E-B  damage  constant 

Words  1 to  20  are  standard  TRAC  parameters  for  transistors. 
Words  21  to  33  have  the  reference  for  the  source  of  the  data  encoded 
into  the  three  least-significant  octal  characters  of  the  data  word. 
Words  34  to  37  have  the  reference  encoded  in  the  same  fashion,  when  data 
exist  for  them. 


5 . PROGRAM  DESCRIPTIONS 


5 . 1 DTABSE 


5.1.1  Flowchart 

Figure  7 shows  the  DTABSE  detailed  logical  flowchart  (p.  13) . 

5.1.2  Variable  Definitions 

The  DTABSE  variables  are  defined  as  follows: 


Variable 

BOTHPRM 

CHANGE 

CHNGPRM 

DAMG 

DAMGPRM 

DELETE 

I,  II  ,IJ,  J 


Definition 

Array  of  new  TRAC  and  damage  data  to  be  read 
from  cards 

Variable  containing  "CHANGE"  for  checking  options 

Array  of  data  to  be  read  from  input  mass  storage 
unit 

Variable  containing  "DAMAGE"  for  checking  options 
Array  of  new  damage  data  to  be  read  from  cards 
Variable  containing  "DELETE"  for  checking  options 
Dummy  DO  loop  indices 


IBLANK (BLANK)  Variable  containing  10  blank  characters  to 
create  blank  filled  output  words 


IBOTH 

ICNT 

ID 

IDELETE 

IDFLG 

IDXTRA 


Variable  containing  BOTH  for  checking  options 

Variable  containing  number  of  words  in  record  to 
be  written  to  mass  storage  file 

Record  of  ID  for  comparison  with  identifiers  in 
named  index  array 

Count  of  number  of  records  deleted  from  input 
mass-storage  file  on  this  run 

Formal  parameter  for  subroutine  DTAREAD 

Record  of  ID  on  runs  where  only  references  are 
to  be  changed 
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Variable 


Definition 


IFILE  Logical  input  mass-storage  unit 

INEWREC  Number  of  new  records  written  to  mass  storage 

IOPTS  Input  array  data  defining  options  selected 

IR  Integer  variable  used  to  allow  same  reference 

index  to  be  used  more  than  once 

IREFS  Input  data  array  containing  data  source 

references 


IZERO 

JFILE 

KEY 

KEY1 

KOPT 

K9 

L 

LAST 

LLAST 


Variable  containing  integer  zero 

Logical  output  mass-storage  unit 

Named  index  array  for  input  mass-storage  file 

Named  index  array  for  output  mass-storage  file 

Input  variable  containing  number  of  optional 
damage  parameters  for  current  run 

Upper  limit  of  DO  loop  for  processing  damage 
parameters 

Actual  number  of  records  initially  on  input 
mass-storage  file 

Input  variable  used  to  specify  last  run  of  set 

Variable  containing  "LAST"  for  comparison  with 
variable  LAST 


LN  Number  of  records  in  input  mass-storage  file  at 

end  of  run 

UJTHDIO  Number  of  records  in  input  mass-storage  file 

during  execution  of  program 

LNTHREC  Number  of  words  in  record  being  processed 

NEGINDF  Variable  containing  octal  40007777777777777000 

used  when  no  datum  is  available  for  variable 
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Variable  Definition 

NPARMS  Number  of  input  time  and  data  words  to  be  read 

from  cards 

RECORD  Storage  array  for  data  to  be  written  to 

mass-storage  file 

REFS  Variable  containing  "REFS"  for  checking  options 

SORT  Variable  containing  "SORT"  for  checking  options 

TRAC  Variable  containing  "TRAC"  for  checking  options 

TRACPRM  Array  for  new  TRAC  data  to  be  read  from  input 

data  cards 

TRACREF  Variable  containing  10  character  references  of 

source  of  TRAC  data  in  record 

XNEGIND  Real  variable  name  equivalenced  to  NEGINDF 

5.1.3  Input  Data  Formats 


The  diode 

: reference  data 

card 

has 

this  format  and  content: 

Column 

Variable 

Definition 

1 

KOPTS 

Number  of  optional  K's 
included  (5  max) 

2 to  7 

IOPTS(l) 

NEW,  CHANGE,  DELETE,  or 
SORT 

8 to  11 

IOPTS (2) 

TRAC,  DAMG,  BOTH,  or  REFS 
(on  CHANGE  only) 

12  to  21 

TRACREF 

22  to  24 

Octal  R 

F 

Bulk  reference 

26  to  28 

Octal  Zrev 

Surge  reference 

30  to  32 

Octal  K 

meas, rev 

(<  50 

ns) 

Reference 

34  to  36 

Octal  K 

meas, rev 

C>  50 

ns) 

Reference 

15 
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Card 


Column 


Variable 


Definition 


38 

to 

40 

Octal 

Kmeas , forward 

Reference 

42 

to 

44 

Octal 

K1 

optional 

Reference 

46 

to 

48 

Octal 

k2 

optional 

Reference 

50 

to 

52 

Octal 

K3 

optional 

Reference 

54 

to 

56 

Octal 

k4 

optional 

Reference 

* 

58 

to 

60 

Octal 

Ks 

optional 

Reference 

• 

65 

to 

69 

LAST 

Flag  for  last  data  set, 
when  punched 

71 

to 

80 

IDXTRA 

Variable  used  only  when 

references  are  changed 

The  diode  data  card  has  this  format: 


Card  Column 

TRAC 

DAMAGE 

BOTH 

1 1 

to 

10 

ID 

ID 

ID 

11 

to 

20 

TRAC (1) 

Z forward  (surge) 

TRAC (1) 

21 

to 

30 

TRAC  ;2) 

Zrev  (1  ys> 

TRAC (2) 

31 

to 

40 

TRAC (3) 

zrev  (10  us) 

TRAC (3) 

41 

to 

50 

TRAC (4) 

K (<  50  ns ) 

meas,rev 

TRAC (4) 

51 

to 

60 

TRAC (5) 

K (> 50  ns) 

meas,rev 

TRAC (5) 

61 

to 

70 

TRAC (6) 

ir 

meas , forward 

TRAC  (6) 

71 

to 

80 

TRAC  (7) 

K optional 

TRAC (7) 

2 1 

to 

10 

TRAC (8) 

Kj  optional 

TRAC (8) 

11 

to 

20 

TRAC (9) 

K2  optional 

TRAC (9) 

21 

to 

30 

K3  optional 

Z forward  (surge) 

16 


Card 


Column 


TRAC 


DAMAGE 


BOTH 


31  to  40  optional 

41  to  50  K5  optional 

51  to  60 
61  to  70 
71  to  80 
3 1 to  10 


11 

to 

20 

Kl 

optional 

21 

to 

30 

k2 

optional 

31 

to 

40 

k3 

optional 

41 

to 

50 

k4 

optional 

51 

to 

60 

K5 

optional 

5.1,4  Program  Explanation 

Overview. — DTABSE  starts  by  opening  the  disk  storage  file  and 
then  searching  the  named  index  array  to  determine  the  actual  number  of 
data  items  on  the  existing  file.  It  then  reads  the  first  input  data 
card  for  each  device  record  to  be  altered.  It  checks  the  values  on  this 
card  to  determine  which  options  were  selected.  DTAREAD  is  then  called 
to  read  the  actual  data  values  to  be  added  or  -the  new  values  for  data 
items  to  be  altered.  The  ID  in  this  data  set  is  compared  with  ID's  in 
the  named  index  to  ascertain  if  that  device  is  in  the  current  disk  data 
file. 

This  main  program  then  calls  TRACPRM,  DAMGPRM,  or  BOTHPRM , as 
appropriate,  to  process  r.ew  records;  or,  alternatively,  it  calls 
REVTRAC,  REVDAMG,  or  REVBOTH,  as  appropriate,  to  process  changes  in 
existing  records.  All  possible  changes,  deletions,  or  additions  to  the 
damage  references  are  effected  by  calling  subroutine  REFENCD  to  encode  a 
three  octal  character  reference  into  the  three  least-significant  octal 
digits  of  the  specified  real  data  variable.  This  processed  data  record 
is  then  written  to  the  extended  disk  file.  After  all  changes  to  the 
file  have  been  implemented,  subroutine  SORTKEY  is  called  to  resort  the 
names  in  the  named  key  index  for  the  existing  data  file,  on  runs  where 
records  have  been  added  or  deleted. 


Z (1  ns) 
rev  v ' 


Z (10  us) 
rev 


K (<50  ns) 

meas,rev 


K (>50  ns) 

meas , rev 


K 


meas , forward 
K optional 
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If  existing  records  have  only  been  modified,  the  run  then 
terminates.  Otherwise,  the  program  writes  a new  cycle  on  the  disk 
storage  file  with  the  records  written  as  they  are  ordered  in  the  sorted 
named  index  array.  The  program  then  prints  on  the  system  output,  for 
each  record  in  the  file:  the  named  index,  the  length  of  the  record,  and 
the  octal  representation  of  the  contents  of  the  record.  The  program 
then  ends. 

Details. — DTABSE  starts  by  defining  and  opening  the 
mass-storage  units,  initializing  the  variables,  and  then,  in  the  DO  3 
loop,  determining  the  actual  number  of  data  records  currently  resident 
in  the  existing  file.  The  diode  reference  data  card  (sect.  5.1.3)  is 
then  read  for  the  data  set  to  be  processed,  at  statement  10. 

The  end  of  file  on  input  is  tested  before  the  options 
selected  on  this  data  card  are  analyzed.  (This  is  a safeguard  in  case 
the  LAST  variable  was  not  properly  encoded  on  the  data  card  for  the  last 
data  set.)  If  an  end  of  file  was  found,  an  appropriate  message  is 
printed,  and  the  program  goes  to  statement  92.  The  allowable  options 
are  as  follows:  NEW  is  used  to  add  a record  to  the  data  base.  CHANGE 
is  used  to  modify  an  existing  record.  SORT  is  used  to  merely  reorder 
the  record  identifiers  in  the  named  index  array  and  then  to  rewrite  the 
data  on  a new  cycle  of  the  mass-storage  file.  The  option  DELETE,  which 
must  be  used  with  CHANGE,  causes  the  entire  specified  record  to  be 
deleted  from  the  file.  The  option  TRAC  is  to  be  used  when  only  TRAC 
data  are  to  be  processed  in  the  record  under  consideration:  similarly 
for  DAMAGE,  only  damage  data  are  to  be  processed.  For  the  option  BOTH, 
TRAC  and  damage  data  are  to  be  processed  for  that  record . Lastly  is  the 
option  REFS,  which  is  to  be  used  when  only  the  references  in  an  existing 
record  are  to  be  changed.  When  REFS  is  selected,  the  record  identifier 
must  be  punched  in  the  field  IDXTRA,  rather  than  the  first  field  of  the 
succeeding  data  card:  thus,  only  a single  data  card  is  required  for  this 
option  and  data  set. 

If  the  option  NEW  is  selected,  the  number  of  new  data 
variables  to  be  read  from  data  cards  is  calculated  and  DTAREAD  is  called 
to  read  these  data.  After  this  call,  the  formal  parameter  IDFLG,  which 
was  set  within  DTAREAD,  is  tested  to  see  that  the  current  record 
identifier  does  not  already  exist  on  the  storage  file.  If  IDFLG 
indicates  that  this  identifier  is  already  on  the  storage  file,  a message 
is  printed,  and  processing  goes  to  statement  90.  Otherwise,  TRACDTA, 
DAMGDTA,  or  BOTHDTA  is  called,  as  appropriate,  to  create  the  new  data 
record.  Then  at  statement  50,  the  length  of  this  new  record  is  defined, 
and  the  record  is  written  to  the  existing,  extended  mass-storage  file. 
The  new  record  count  and  the  count  of  the  number  of  records  in  the  file 
are  incremented,  and  the  processing  goes  to  statement  90. 
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If  CHANGE  is  selected,  the  program  first  checks  whether  REFS 
also  was  selected.  If  so,  the  program  goes  to  statement  70.  Otherwise, 
the  number  of  input  data  words , NPARMS , is  calculated  as  a function  of 
KOPT  and  of  which  type  of  data  is  to  be  read.  DTAREAD  is  then  called  to 
read  the  input  data  parameters  for  the  current  record  to  be  changed,  to 
determine  the  length  of  the  existing  record,  and  to  test  that  the  record 
identifier  specified  already  exists.  If  it  does  not  exist,  an  error 
message  is  printed,  and  processing  goes  to  statement  90.  If  this  error 
is  not  found,  one  of  the  following  subroutines,  as  appropriate,  is 
called:  REVTRAC,  REVDAMG , or  REVBOTH . The  subroutine  changes  the 
corresponding  type  of  data  within  the  specified  record  as  required  by 
the  input  data  cards. 

The  next  several  statements,  ending  at  statement  63, 
determine  the  length  of  the  revised  record.  At  statement  65,  this 
revised  record  is  written  to  the  existent,  extended  mass-storage  file, 
and  then  the  program  goes  to  statement  90. 

At  statement  70  is  begun  the  treatment  of  reference  changes 
only.  The  named  index  is  searched  to  find  the  record  specified  by 
IDXTRA . If  no  match  is  found,  an  error  message  is  printed,  and  the 
program  goes  to  statement  90.  Otherwise,  subroutine  DECODLN  is  called 
to  determine  the  length  of  the  existent  specified  record.  This  record 
is  then  read  from  the  mass-storage  file.  Each  reference  field  on  the 
diode  ref«reice  data  card  is  then  checked.  A minus  zero  in  any  field 
causes  the  existing  reference  to  be  deleted.*  (For  a minus  zero,  the 
TRAC  reference  is  replaced  by  a blank  field,  and  a three  octal  digit 
reference  is  replaced  by  three  octal  zeros.)  If  the  reference  field  on 
the  data  card  is  blank,  the  CDC  6600  stores  a zero.  Thus,  we  compare 
the  fields  read  with  zero;  if  a match  occurs,  the  existing  reference  is 
left  as  it  was,  and  processing  continues  on  the  next  reference.  If  any 
reference  field  on  the  data  card  contains  a value  that  is  neither  blank 
nor  minus  zero,  then  the  existing  corresponding  reference  is  changed  to 
the  value  given  on  the  data  card.  This  reference  is  changed,  except  for 
the  TRAC  reference,  by  calling  subroutine  REFENCD . If  an  error 
condition  is  found  in  this  subroutine,  an  abnormal  return  occurs  that 
causes  an  error  message  to  be  printed,  but  does  not  change  the 
reference;  then  the  program  flows  normally.  After  these  changes  to  the 
references,  the  current  corrected  record  is  rewritten  to  the 
mass-storage  file.  The  program  then  goes  to  statement  90. 

If  the  option  DELETE  is  selected  for  this  record, 
implementation  begins  at  statement  80.  The  DO  83  loop  deletes  the 
specified  identifier  from  the  named  index  array.  If  this  specified 
identifier  is  not  found,  an  error  message  is  printed,  and  the  processing 


a 


*The  description  in  the  rest  of  this  section  applies  to  TRNSBSE , 


flow  jumps  to  statement  90.  After  this  specified  identifier  is  deleted, 
the  count  of  the  number  of  records  deleted  is  incremented  by  one,  and 
the  count  of  the  number  of  records  in  the  file  is  decremented  by  one. 
The  program  then  continues  on  at  statement  90, 

Statement  90  is  the  junction  point  in  the  processing  flow  for 
each  record.  After  the  different  branches  corresponding  to  different 
selected  options  have  been  executed,  the  program  flow  comes  to  this 
statement  and  tests  whether  the  diode  data  card  contained  the  flag  LAST? 
if  not,  it  jumps  back  to  statement  10  to  start  on  the  next  data  set.  If 
LAST  was  set,  the  program  continues  on  at  statement  92. 

At  statement  92 , both  the  new  record  count  and  the  deleted 
record  count  are  tested.  If  these  counts  are  both  zero,  the  program 
ends,  and  any  changes  in  the  run  were  performed  onto  the  extended 
existing  storage  file.  Otherwise,  subroutine  SORTKEY  is  called  to 
resort  the  named  index  array  for  the  existing  data  file.  This  resorting 
is  performed  according  to  the  standard  CDC  6600  FORTRAN  collating 
sequence.  The  even-indexed  elements  of  this  array  are  then  copied  to 
another  array  to  be  used  as  the  named  index  for  a new  cycle  of  the  data 
on  the  mass-storage  file. 

This  new  data  file  cycle  is  written  to  avoid  problems  with 
the  record  manager  that  are  possible  if  the  named  index  was  merely 
resorted.  A secondary  reason  is  to  insure  that  the  devices  were  stored 
in  a known  order,  so  that  the  file  contents  could  be  printed  out  in  a 
neat,  logical  order  by  other  independent  programs. 

The  DO  100  loop,  for  each  record,  calls  subroutine  DECOD LN  to 
determine  the  record  length  of  the  specified  record  on  the  existing  data 
file,  reads  that  record,  and  then  writes  that  record  using  the  new  named 
index  onto  a new  cycle  of  the  mass-storage  file.  The  named  index,  the 
record  length,  and  the  contents  of  the  record,  in  octal  format,  are  then 
printed  onto  the  system  output.  After  the  end  of  this  loop,  both 
logical  mass-storage  files  are  closed,  and  the  program  ends. 

5.1.5  Output  Data  Format 

At  the  beginning,  after  the  program  searches  the  named  index, 
the  number  of  records  then  on  the  mass-storage  file  is  printed.  Just 
before  the  end  of  the  program,  and  only  if  the  data  file  has  had  records 
added  or  deleted  or  if  a sort  has  been  requested,  the  program  prints  the 
number  of  records  on  the  storage  file  at  that  time.  It  prints  out  the 
contents  of  the  file,  using  format  950,  given  in  the  program  listing. 
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For  each  record  is  printed  (1)  the  record  identifier  from  the 
named  index,  (2)  the  record  length  in  the  extended  existing  file,  (3) 
the  record  length  on  the  new  cycle  of  the  file  (these  should  be 
identical) , and  (4)  the  complete  contents  of  this  record  in  octal  format 
(20  octal  characters  for  each  CDC  6600  60-bit  word) . 

Under  erroneous  conditions,  the  program  prints  out  six 
possible  error  messages: 


• END  OF  FILE  ENCOUNTERED  WHILE  TRYING  TO  READ  NEXT  DATA  SET 
JOB  ENDED  BASED  ON  DATA  ALREADY  READ 

• REFERENCE  OUT  OF  RANGE  FOR  DATA  ITEM  NO.  (15)  FOR  DEVICE 
(A10)  VALUE  IS  (E12.3)  REF  IS  (03) 

OLD  REFERENCE  NOT  CHANGED 

• NO  MATCH  FOUND  IN  NAMED  INDEX  ARRAY  FOR  DEVICE  TYPE  WHICH 
WAS  TO  ONLY  HAVE  REFERENCES  CHANGED,  ID  WAS  (A10) 

THESE  CHANGES  WERE  THEREFORE  IGNORED  & PROCESSING  CONTINUES 

• EOF  NOT  REACHED  AFTER  (15)  DEVICE  TYPES 

• ATTEMPTED  TO  CREATE  A NEW  DATA  REC  WITH  THE  SAME  ID  AS  AN 
OLD  REC,  THIS  NEW  DATA  SET  WAS  IGNORED  & PROCESSING 
CONTINUES 

ID  WAS  (A10)  IOPTS(l)  WAS  (A6)  IOPTS(2)  WAS  (A4) 

.ATTEMPTED  TO  CHANGE  AN  EXISTING  RECORD  IN  THE  DATA  FILE, 
AND  THE  SPECIFIED  'ID'  WAS  NOT  FOUND  IN  THE  NAMED  INDEX 
ARRAY 

THIS  DATA  SET  WAS  IGNORED  & PROCESSING  CONTINUES 
ID  WAS  (A10)  IOPTS(l)  WAS  (A6)  IOPTS(2)  WAS  (A4) 


5.1.6  Sample  Run 


The  deck  setup  uses  these  control  cards: 

EMCPR,CM64000,T100 
TASK,TNEM71603,PW*****,TRTS.  RUZIC 
ATTACH , TAPE11 , DIODMG , ID=*  ****** . 

REQUEST , TAPE12 , *PF . 

EXTEND (TAPE11) 

MAP (PART) 

FTN (R=2 ,L) 

LGO. 

CATALOG , TAPE 1 2 , DIODMG , ID=  * * * * * * * , RP= 7 7 7 . 
EXIT. 

7/8/9 
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The  CATALOGUE  card  must  be  omitted  if  there  are  no  additions 
or  deletions  to  the  file.  Card  7/8/9  is  a standard  CDC  6600 
end-of-record  mark.  Numbers  7,  8,  and  9 are  all  punched  in  column  1. 

The  deck  setup  uses  these  programs : 

Program  DTABSE 

Subroutine  REVTRAC  with  entries  REVDAMG  and  REVBOTH 

Subroutine  TRACDTA  with  entries  DAMGDTA  and  BOTHDTA 

Subroutine  SORTKEY 

Subroutine  DTAREAD 

Subroutine  REFENCD 

Subroutine  DECODLN 

Subroutine  FINDREF 

7/8/9 

For  this  sample  run,  the  deck  setup  uses  the  data  cards  in 
listing  1 (p.  23) . The  listings  of  these  programs  are  in  appendix  B, 
and  the  subroutines  are  described  in  appendix  C.  The  reader  can  ask  the 
author  for  the  program  output. 
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LISTING  1.  DTABSE  SAMPLE  RUN  DATA 


1 CHANGE  BOTH  PREV  BASE039  03*  060  060  060  020  C63 
1N277 


. 

S.1E3  .89  EO 

7.613 

7.6E3 

3.95E-6 

1.77E-2 

3.7E-9 

2.7E-2 

1 .2E-1 

1NEW  BOTH 

PREV  BASE039  039  060 

060  060 

022 

1N985B 

. 

2.5E1  .963E3 

962. EO 

532. EO 

1 .13E-9 

5.06E-1 

9.6E-3 

. 30E0 

3CHANGE  BQT  H 

PREV  BASE339  066  060 

060  060 

017  002  013 

... 

1NG95 

1.75E3  2.25E-1 

6.9E3 

6.9E3 

1 .99  E -9 

6.65E-1 

6.6E-2 

2. BED 

3.63E0  7.9E-1 



1 CHANGE  0AM  G 

PREV  BASE039  062  060 

060  060 

017 

1N796A 

.28E0  3.35E-1 

3.35E-1 

1 .9  IE  - 3 

8.59E0 

2.CE-2 

2NE  R BOTH 

PREV  BASE039  039  060 

060  060 

017  002 

1 N751A 

. 7E 0 1.85E-1* 

. 7E  0 

. 7 E 0 

9 .96  E -9 

1 .99E0 

9.3E-3 

1 . 1 to 

3.B7E0 

1 NE  W BOTH 

1 N 1 202  062  039  060 

060 

013 

1N1202AR 

.952E-9  1.62E0 

91 .3E9 

.130E-10 

1 .0E0 

1.0E-7 

1.0E-9 

2.0E2 

1.13E3  1.1E-1 

1.13E3 

2.95E3 

2 .26  E -9 

1.C1E0 

9.67E0 

1 NE  W BOTH 

PREV  BA5E039  039  060 

060  060 

022 

INI  731  A 

...  .... 

• 

. 

1 .95  E 3 2.65E-1 

5.35E3 

5.35E3 

9 . 03  E -9 

1 .8E0 

1.9E-1 

3.2E0 

1CHANGEBOTW 

PREV  BASE039  062  060 

060  060 

017 

. ..  

1N3025B 

3.5E-1  8.5E-2 

3.5E-1 

6.E-1 

8 .99  E -9 

3 .8E0 

9.9E-2 

1.9E0 

UNEW  BOTH  PREV  BASE039  039  060  060  060 
M 01  059 


9.5E3 

1.3E-1 

7.1E3 

1 .5E9 

6 .72E-6 

3.01E-2 

6.7E-3 

ONER  BOTH 

PREV  BASE039 

039  060 

060  060 

K51090 

5 .75  E 1 

6.9E0 

5.75E1 

3.925E1 

8 .99E-8 

3.8E-9 

2.  IE -6 

ONE  W BOTH 

PREV  BASE039 

039  060 

060  ObO 

1 R696735 

l.OEO 

2.2E-1 

l.OEO 

l.OEO 

1.13E-3 

5.06E0 

8 .08  E -3 

ONE  R DAMG 

PREV  BASE062 

071  060 

060 

1N2560 

. 17E0 

9.9E1 

9.25E1 

1 .13E-2 

5.06E1 

DChANGEBQTH 

PREV  BA5E333 

333 

PCI  15 

9.7E1  1 

.55  E -1 

9.7E1 

1.20E2 

.ChANGECAMG 

PREV  BASS032 

032 

1 NnOO 

1.66-2 

7.0E-2 

OCHANGEDAMG 

PREV  BASE025 

025 

022 

1 N1200 

5.E-2 

1 .1E2 

6.232E1 

OCHANGEDAMG 

PREV  BASE325 

025 

025 

1 M 202 

l.OEO 

6.5E1 

6.5E1 

1 .9E1 

c change  o am  g 

PREV  BASE 

022 

— 

1N1209A 

9.611E1 

1 CHANGEOAMG 

PREV  BASE 

013 

017 

1N1619 

9.86E0 

.38  E 00 

OCHANGEDAMG 

PREV  BASE 

017 

1N191 

5.0E-3 

uCHANGESAMG 

PREV  BASE 

022 

1M2  70 

2.2E-2 

JO'ANGEOAMG 

PREV  BASE 

022 

1N2  76 

5.5  E -3 

— * 

OCHANGEDAMG 

PREV  BASE 

022 

1N2823B 

2.99E2 

uCHANGE  DAM  G 

PREV  BASE 

017 

1 N2896B 

•1  . 5 E 1 

C CHANGE  OAM  G 

PREV  BASE 

017 
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LISTING  1.  DTABSE  SAMPLE  RUN  DATA  (Cont'd) 


1N3024 

1 .9E0 

OCHANGEDAMG 

PREV 

BASE 

017 

1N3027B 

1 .9E0 

..CHANGE  DAMG 

PREV 

BASE 

017 

1 N3033B 

1 .9E0 

1 CHANGE  DAM  G 

PREV 

BASE 

013  013  017 

1 N3Qc>4 

.17E0 

1 .86E-4 

. 02  F 0 

1 CHANGE  CAM  G 

PREV 

BASE 

021  * 002 

1 N 3 3 8 

1.83E1 

3.24  EO 

CChANGEDAMG 

PREV 

BASE064 

065  003 

013  013 

1 N3  600 

. 397E  0 

1 .7E1 

• 18E0 

• 1 9 EO 

3.04E-4 

CChANGEDAMG 

PREV 

BASE 

025 

025 

1N-.003 

1.65E1 

• 73E0 

CChANGEDAMG 

PREV 

BASE 

013 

1 N4006 

. !6E00 

CChANGEDAMG 

PREV 

BASE 

013  013 

1N414S 

1 .94E-2 

1 .5E-4 

c Change  dam  g 

PREV 

BASE 

017 

1N4249 

2.4E0 

1 CHANGE  DAM  G 

PREV 

BASE025 

02  5 

020  025 

1N457 

. 9 E 0 

6.0E1 

• 12E0 

.75  EO 

CCHANGEDAMG 

PREV 

BASE 

017 

1N45S 

.5E0 

1CHANGEDAMG 

PREV 

BASE 

002 

021  002 

i N4  59A 

3.6E0 

-96E0 

.96E0 

c Change  dam  g 

PREV 

BASE 

029 

020 

i N459 

8.3E2 

.59E0 

CCHANGEDAMG 

PREV 

BASE 

017 

1 N**61 

• 24E0 

. change  dam  g 

PREV 

BASE 

017 

CNN  62 

5.E-2 

ichangEoamg 

PREV 

BASE 

024 

020  002 

1N462A 

7.6E2 

.96E0 

. 96  EO 

iCHANGEDAMG 

PREV 

BASE 

020  002 

1NS37 

1 .3E2 

.5  1 EO 

.51  EO 

iCHANGEDAMG 

PREV 

BASE 

017 

1N53SM 

1 .EO 

CCHANGEDAMG 

PREV 

BASE 

012  017 

1N538 

8.53E0 

l.OECO 

1 CHANGE  DAMG 

PREV 

BASE 

024 

020  002 

1N540 

9.4E1 

. 9 3E0 

• 93E0 

CCHANGEDAMG 

PREV 

BASE 

020 

1NS47 

12.1E0 

CNF  W DAMG 

PREV 

BASE 

020 

1N646 

2. 29  EO 

cchangeboth 

PREV 

BA  SE  325 

025  025 

007 

1N647 

1 . 

72E  1 

5.2E0 

4.2E0 

3.9E0 

CCHANGEDAMG 

PREV 

BASE 

017 

1N64B 

2.8E0 

OCHANGEDAMG 

PREV 

BASE 

007 

1 N6A9 

2 .9E0 

i.  CHANGE  DAM  G 

PREV 

BASE 

007 

1N658 

.92  EO 

1 CHANGE  DAMG 

PREV 

BASE 

012 

012  017 

1 Nt  6 0 

1 . 1 £ 1 

2.8OE0 

.44  EO 

iCHANGEDAMG 

PREV 

BASE 

007  020 

1 Nbbl 

• 46E0 

.41  EO 

OCHANGEDAMG 

PREV 

BASE 

022 

1N706 

.2E8E0 

oChANGEOAMG 

PREV 

BASE 

002 

002 

1N711A 

1 .9E0 

2.1E0 

ICHANGEDAMG 

PREV 

BASE 

013  013  017 

1 N746A 

* 

1 .660 

3.2E-3 

1.1E0 

CCHANGEDAMG 

PREV 

BASE 

017 

BEST  AVAILABLE  COPY 
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LISTING 

1 . DTABSE 

SAMPLE 

RUN  DATA 

, (Cont 

'd) 

1 N747A 

1 . 1 EO 

c change  oam  o 

PREV 

BASE 

017 

1 i;7A6A 

1.1E0 

r ChANGE  0 AM  G 

PREV 

BASE 

013 

013 

017 

021 

1N752A 

1 .06E1 

3.235E-2 

1.1E0 

1.2E0 

CChANGEDAMG 

PREV 

BASE 

017 

1N752 

1.1E0 

I CHANGE  DAMG 

PREV 

BASE 

029 

013 

013 

020 

1N75^A 

.9E0 

19 . 8 EO 

2.39E-2 

1 .2E0 

OCnANGcDAMG 

PREV 

BASE 

020 

1N753 

1 . 2 E 0 

ICHANGEOAMG 

PREV 

BASE 

013 

013 

017 

1 N7  5hA 

.. 

1.12E0 

6.93E-9 

.63E0 

IChANGEDAMG 

PREV 

BASE 

013 

017 

1N755A 

13.3E0 

• 63E0 

; changeoamg 

PREV 

BASE 

013 

013 

017 

1N756 

2.09E1 

6.8  7E-2 

• 63E0 

OCH ANGE  C AM  & 

PREV 

BASE 

017 

1N756A 





63E0 

i Change  dam  g 

PREV 

BASE 

013 

013 

017 

1 N758A 

6. 17E0 

2.SE-2 

• 63E0 

OCHANGE  DAMG 

PREV 

8ASE 

017 

1N758 

. 6 3*  E 0 

OCHANGE  DAMG 

PREV 

BASE 

020 

. _ 1N816W 

1.5E0 

IChANGEOAMG 

PREV 

BASE 

029 

002 

020 

1 Nr  2 3 

• 79  E 0 

1.8E0 

1.810 

. 2 CHANGEDAM  G 

PREV 

BASE 

070 

012 

067 

007 

020 

1 N9  1 A 

9. El 

.S05E0 

7.2E-2 

1 . 91 EO 

9.6E-2 

B.5--1 

ICHANGEOAMG 

PREV 

BASE 

013 

013 

017 

1 N963B 

6.17E0 

2.02E-3 

1 .0  EO 

ICHANGEOAMG 

PREV 

6ASE 

013 

017 

J Mo^SR 

-7.SQF0 

l.OFO 

ICHANGEOAMG 

PREV 

BASE 

020 

1 N967B 

.73E0 

1 fHAkif.  FfiAMT.  Pfi  fu 

BASE 

013 

01  7 

1N973B 

9.27E1 

l.OEO 

1NEW  DAMG 

PREV 

BASE  062 

039  060 

060 

017 

LAST 

XN29916 — 

—LXDSE-J 

.SSEO 

-36E0- 

7- 

-fi«F -1 

X.  16EX— 

1 5 F 1 

0 / 6/7/ 8/9* 
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5.2  TRNSBSE 


5.2.1  Flowchart 

Figure  8 (p.  29)  shows  the  TRNSBSE  detailed  logical  flowchart. 

5.2.2  Variable  Definitions 

All  variables  in  TRNSBSE,  except  one,  are  identical  in 
meaning  and  use  with  the  variables  of  the  same  name  in  DTABSE.  The  one 
exception  is  that  LNTHDIO  in  DTABSE  is  replaced  by  LNTHFIL. 

5.2.3  Input  Data  Formats 

The  transistor  reference  data  card  has  this  format: 

Card  Column  Variable 


1 

KOPT 

2 

to 

7 

IOPTS(l) 

8 

to 

11 

IOPTS (2) 

12 

to 

21 

TRACREF 

22 

to 

24 

Octal 

Ref 

Rforward  bulk  C B 

26 

to 

28 

Octal 

Ref 

Rforward  bulk  E B 

30 

to 

32 

Octal 

Ref 

z 

rev  surge 

C-B 

34 

to 

36 

Octal 

Ref 

Z 

rev  surge 

E-B 

38 

to 

40 

Octal 

Ref 

K 

meas , rev 

(<50  ns) 

C-B 

42 

to 

44 

Octal 

Ref 

K 

meas , rev 

(<50  ns) 

E-B 

46 

to 

48 

Octal 

Ref 

K 

meas, rev 

050  ns) 

C-B 

50 

to 

52 

Octal 

Ref 

K 

meas, rev 

050  ns) 

E-B 

54 

to 

56 

Octal 

Ref 

K , . C-B 

meas , forward 

58 

to 

60 

Octal 

Ref 

K , . E-B 

meas , forward 

62 

to 

64 

Octal 

Ref 

K optional  C-B 
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Column 

Variable 

66  to  68 

Octal 

Ref 

Kj  optional  E-B 

70  to  72 

Octal 

Ref 

10,  optional  C-B 

74  to  76 

Octal 

Ref 

Kj  optional  E-B 

77  to  80 

LAST 

The  transistor 

data 

card  has  this  format: 

Card 

Column 

TRAC 

DAMAGE 

BOTH 

1 

1 to  10 

ID 

ID 

ID 

11  to  20 

TRAC  (1) 

^forward  C"B 

TRAC(l) 

21  to  30 

TRAC  (2) 

^forward  E_B 

TRAC(2) 

31  to  40 

TRAC  (3) 

Zrev  <l  “■>  C"B 

TRAC  (3) 

41  to  SO 

TRAC  (4) 

Z rev  (10  u»)  C-B 

TRAC  (4) 

SI  to  60 

TRAC(5) 

zrev  (1  ws)  E‘B 

TRAC  (S) 

61  to  70 

TRAC  (6) 

Zrav  (1°  *,,)  E-B 

TRAC  (6) 

71  to  80 

TRAC  (7) 

Sav  (<5°  ns)  C_B 

TRAC  (7) 

2 

1 to  10 

TRAC (8) 

Kr<v  (<50  na)  E-B 

TRAC  (8) 

11  to  20 

TRAC  (9) 

^ (>50  ns)  C-B 

TRAC  (9) 

21  to  30 

TRAC (10) 

Krwy  (>S0  ns)  E-B 

TRAC (10) 

31  to  40 

TRAC (11) 

^forward  *"""B 

TRAC (11) 

41  to  50 

TRAC (12) 

^forward  E"B 

TRAC (12) 

51  to  60 

TRAC (13) 

Kj  optional  C-B 

TRAC (13) 

61  to  70 

TRAC(14) 

K[  optional  E-B 

TRAC (14) 

7i  to  eo 

TRAC (15) 

*2  optional  C-B 

TRAC (15) 

3 

1 to  10 

TRAC (16) 

K2  optional  E-B 

TRAC (16) 

11  to  20 

TRAC (17) 

TRAC (17) 

21  to  30 

TRAC (18) 

TRAC (18) 

31  to  40 

TRAC (19) 
(0.1  us) 

“ zrev 
C-B 

TRAC (19) 
(0.1  us) 
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REFS 

ID 


I 


Column 

TRAC 

DAMAGE 

BOTH 

REPS 

41  to  50 

TRAC (20)  - Erev 

(0.1  us)  e-b 

TRAC  (20)  - ZEev 
(0.1  us)  E-B 

SI  to  60 

^forward  C-B 

61  to  70 

Rforward  E_B 

71  to  80 

Sr,v  (1  us)  C-B 

1 to  10 

2rsv  110  W»>  C~B 

11  to  20 

Zrev  >i,)  E'B 

21  to  30 

z„v  dO  us)  E-B 

31  to  40 

Krev  (<50  ns)  C-B 

41  to  50 

*rev  (<50  ns)  E-B 

51  to  60 

Krev  (>50  ns)  C-B 

61  to  70 

Krev  (>50  ns)  E-B 

71  to  80 

K _ _ . C-B 

forward 

1 to  10 

^forward  E_B 

11  to  20 

K)  optional  c-B 

21  to  30 

K,  optional  E-B 

31  to  40 

K2  optional  C-B 

41  to  50 

Kj  E-B 

5.2.4  Program  Explanation 


Overview. — TRNSBSE  opens  the  transistor  data  storage  file  on 
mass  storage  and  searches  the  named  index  to  determine  he  actual  number 
of  data  records  in  the  existing  data  base.  It  reads  the  first  input 
data  card  of  the  set.  It  checks  the  values  read  from  this  card  to 
determine  which  options  were  selected  for  processing  this  data  set. 
Subroutine  DTAREAD  is  then  called  to  read  the  actual  new  data  values. 
The  ID  contained  in  this  data  set  is  compared  with  the  ID’s  in  the  named 
index  to  ascertain  if  the  specified  device  is  or  is  not  already  on  the 
disk  file.  TRNSBSE  then  calls  TRACTRN,  DAMGTRN,  or  BOTHTRN,  as 
appropriate,  if  new  records  are  being  processed;  or,  alternatively,  it 
calls  RVSTRAC,  RVSDAMG,  or  RVSBOTH  if  existing  records  are  being 
changed.  Subroutine  REFENCD  then  adds,  changes,  or  deletes  the 
references  as  required.  The  processed  record  is  then  written  to  the 
extended  disk  file. 

After  all  changes  to  the  file  have  been  implemented, 
subroutine  SORTKEY  resorts  the  named  index  for  the  existing  data  file, 
when  records  have  been  added  or  deleted,  as  a preliminary  step  in 
creating  a new  cycle  of  the  data  file.  If  existing  records  have  only 
been  modified,  the  run  then  ends.  Otherwise,  TRNSBSE  writes  a new  cycle 
on  the  disk  storage  file  with  the  records  written  as  ordered  in  the 
sorted  named  index.  If  there  is  to  be  a new  cycle  of  the  file  written, 
a catalogue  card  is  required  at  the  appropriate  place  within  the  set  of 
control  cards.  If  there  is  not  to  be  a new  cycle,  then  there  must  not 
be  a catalogue  card.  For  each  record  in  the  file,  the  program  then 
prints  on  the  system  output  (1)  the  named  index,  (2)  the  length  of  the 
record,  and  (3)  the  octal  representation  of  the  contents  of  the  record. 
The  program  then  ends. 

Details. — TRNSBSE  is  a modified  version  of  DTABSE  with 
changes  incorporated  to  have  it  operate  on  the  transistor  data  base 
rather  than  the  diode  data  base.  TRNSBSE  differs  from  DTABSE  mostly 
because  TRNSBSE  deals  with  longer  records  having  many  more  parameters. 
It  starts  by  defining  and  opening  the  mass-storage  units,  initializing 
variables,  and  determining  in  the  DO  3 loop  the  actual  number  of  data 
records  resident  in  the  existing  file.  This  determination  is  necessary 
since  the  data  base  can  be  modified  by  programs  other  than  TRNSBSE.  The 
transistor  reference  data  card  (sect.  5,2.3)  is  then  read  for  the  data 
set  to  be  processed,  at  statement  10  of  the  program. 

For  each  data  set,  the  end  of  file  on  input  is  tested  before 
the  options  selected  on  this  data  card  are  analyzed.  (This  is  a 
safeguard  in  case  the  LAST  parameter  was  not  properly  encoded  on  the 
data  card  for  the  previous  data  set.)  If  an  end  of  file  was  found,  an 
appropriate  message  is  printed,  and  the  program  goes  to  statement  92. 
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The  allowable  options  on  the  transistor  reference  data  card, 
with  one  exception,  are  the  same  as  those  for  the  diode  data  reference 
card  (sect.  5.1.4).  This  one  exception  is  that  IDXTRA  is  not  used  here. 
Instead,  a second  data  card  with  the  ID  must  be  read  regardless  of 
whatever  option  is  selected. 

If  the  option  NEW  was  selected,  the  number  of  new  data 
variables  to  be  read  from  data  cards  is  calculated,  and  DTAREAD  is 
called  to  read  these  data.  After  this  call,  the  formal  parameter  IDFLG, 
which  was  set  within  DTAREAD,  is  tested  to  see  that  the  current  record 
identifier  does  not  already  exist  in  the  storage  file.  If  it  does 
exist,  a message  is  printed,  and  the  processing  goes  to  statement  90. 
Otherwise,  TRACTRN,  DAMGTRN,  or  BOTHTRN  is  called,  as  appropriate,  to 
create  the  new  data  record.  Then  at  statement  50,  the  length  of  this 
new  record  is  defined,  and  the  record  is  written  to  the  existing, 
extended  mass-storage  file.  The  new  record  count  and  the  count  of  the 
number  of  records  in  the  file  are  incremented,  and  the  processing  goes 
to  statement  90. 

If  the  option  CHANGE  is  selected,  the  program  first  checks 
whether  the  option  REFS  also  was  selected.  If  so,  the  program  goes  to 
statement  70.  Otherwise,  th->  number  of  input  data  words,  NPARMS,  is 
calculated  as  a function  of  KOPT  and  of  the  type  of  data  to  be  read. 
DTAREAD  is  then  called  to  read  the  input  data  parameters  for  the  current 
record  to  be  changed,  to  determine  the  length  of  the  existing  record, 
and  to  test  that  the  record  identifier  specified  already  exists.  If  it 
does  not  exist,  an  error  message  is  printed,  and  the  processing  goes  to 
statement  90.  If  this  error  is  not  found,  one  of  the  following 
subroutines,  as  appropriate,  is  called:  RVSTRAC,  RVSDAMG,  or  RVSBOTH. 
These  subroutines  change  the  corresponding  type  of  data  within  the 
specified  record  as  required  by  the  input  data  cards. 

The  next  several  statements , ending  at  statement  63 , 
determine  the  length  of  the  revised  record.  At  statement  65,  this 
revised  record  is  written  to  the  existent,  extended  mass-storage  file, 
and  then  the  program  goes  to  statement  90, 

At  statement  70  is  begun  the  treatment  of  reference  changes 
only.  The  named  index  is  searched  to  find  the  record  specified  by  ID. 
If  no  match  is  found,  an  error  message  is  printed,  and  the  program  goes 
to  statement  90.  Otherwise,  subroutine  DECODLN  is  called  to  determine 
the  length  of  the  existent  specified  record.  This  record  is  then  read 
from  the  mass-storage  file.  Each  reference  field  on  the  transistor 
reference  data  card  is  then  checked.* 


*The  description  for  DTABSE  (sect.  5.1.4,  Details)  beginning  with 
the  asterisk  (*)  applies  to  TRNSBSE , also. 
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5.2.5  Output  Data  Format 


The  output  data  format  is  the  same  as  that  described  for 
DTABSE  (sect.  5.1.5).  The  only  difference  is  that  since  the  records  are 
longer,  more  words  are  printed  out  for  each  record  of  TRNSBSE. 

5.2.6  Sample  Run 

The  deck  setup  uses  these  control  cards : 

EMCPR,CM64000,T35 

TASK,TN*******,PW*****,TRTS.  RUZIC 
ATTACH, TAPE11, TRANS, ID=* ****** . 

FTN  (R=2  ,L) 

MAP (PART) 

LGO. 

7/8/9  (end  of  record  punch) 

The  deck  setup  uses  these  programs: 

Program  TRNSBSE 
Subroutine  RVSTRAC 
Subroutine  TRACTRN 
Subroutine  DTAREAD 
Subroutine  REFENCD 
Subroutine  DECODLN 
Subroutine  FIND REF 
7/8/9 

. For  this  sample  run,  the  deck  setup  uses  the  data  cards  in 
listing  2 (p.  33) . The  listings  of  these  programs  are  in  appendix  B, 
and  the  subroutines  are  described  in  appendix  C.  The  reader  can  ask  the 
author  for  the  program  output. 
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LISTING  2 . TRNSBSE 


OCHANGEBOTHPRE V BASE 
2N393 

36  36  36 

36  60 

60  60  60 

63 

60 

1 .67E  *2 
6.166-6 

1.2756*3 

1.2756*3 

1.226*2 

2 .696-6 

2 .35E  *2 
3.11E-S 

6.606*1 

1 .206*0 

3.806*1 

1 .396-1 

2 .45E  *2 
8.406-4 

0N6A  BOTH 

2N396A 

36  36  36 

36 

60  60 

60 

60 

1.1756*3 

3.20E-1 

1 .106*3 

1 .606*3 

1 .316*3 

1 .106*3 

6 .256-1 
1.62E-1 

1 .356*0 
1.566-1 

1.1756*3 

1 .606-2 

ONE  2 B31  H 

2N628N 

36  36  36 

36  60 

60  60  60 

60 

60 

9.756*2 

3.206-3 

9.786*2 

9.786*2 

6 .606*2 
6.256-5 

9 .786  *2 
6.51E-5 

5.60E-1 

1 .90E-1 

1.866*0 

2.916-1 

9 .75  E*2 
1.30E-2 

0N6W  BOTH 

2N4661 

36  36  36 

36  60 

60  60  60 

60 

60 

2 .6 16  *2 
2.70E-3 

5.006*2 

2 .806*2 

6.806*2 

1 .62E-6 

6 .20E*2 
1.36E-6 

1 ,30E*0 

6 .33  6-1 

1.85E*0 

6.016-1 

6.806*2 

1.40E-2 

OCHANGEBOI HPR  EV  BASE 
2N501A  TO 

36  36  36 

36  60 

60  60  60 

63 

60 

6 . 70E*2 
1.60E-4 

2.606*2 

1 .016*3 

3 .156*1 
3.606-6 

6.206*1 

6.956-6 

5.106*0 

1 .526-2 

6.406*0 

2.226-2 

3 .55  E *2 
3.90E-4 

0CHANG6B 01 HPRE V BASE 
2N705 

36  36  36 

36  60 

60  60  60 

60 

60 

3.696*2 

3.606-5 

3.606*2 

3.60E*2 

7.256*1 
3.18  6-6 

1 .656*2 
1.13E-6 

9.50E-1 

1 .62E-2 

2.2CE*0 

5.066-3 

1 .506*2 
7.90E-5 

OCHANGEBOTHPREV  BASE 
2N706 

36  36  36 

36  60 

60  60  60 

60 

60 

7.30E«1 

B .806 -5 

2.506*1 

2.506*1 

1.65E*1 

6 .256-6 

2 .506*1 

3 .966-6 

2 .156*0 

1 .BOt-2 

2.456*0 

1.77E-2 

4 .706*1 

4 .306  —5 

ONE  A BOTH 

2N1062A A 

36  36  36 

36  60 

60  63  63 

60 

60 

2.6256*2 

1.40E-1 

2.556*2 

5.006*2 

9.756*1 

3.116-6 

1 .62E*2 
2.696-6 

1 .606-1 

1 .396*0 

2 .966-1 
1.206  *0 

5.926*2 

1 .606-1 

2 CHANGE  BOl HPRE V BASE  62  34  36  67  60  60'  63  60  60  60  17 

2N14B5 


7.756*0  1.906*0  S.75E-1  6.056-1  6.90E«l 


6.906*1  0.506*0  3.306-1  2 .6BE-6  2.05E-3  1.116*0  9.166*0 

6.506-2 6.10E*0 


2 HEN  BOTH 

2N1493 

34  34  34 

34 

60 

60  60  60 

60 

60 

17 

1.606*1 

1 .656*0 

1 .65E  *0 

4 .746-4 

1 .65E*0 

8 .49E-4 

3 .00  E -2 
2 .126*0 

3.006-2 
’ . 8 0 1 ♦ 0 

2 .156  *0 

4CHANGE BOT HPRE V BASE 
2N1613 

34  34  34 

34 

60 

60  60  60 

60 

60 

17 

25 

6.056*1 
2.9P6-3 

7.55E«0 

7 .55E  *0 
2.70E-1 

6.056*1 

3 .4  0 6-4 

7 .556  *0 
6.306  -5 
l^ootto 

5.506-1 

1 .526  *0 

6.756  -1 
2.826-1 

6.056*1 

1 .706-2 

2CHANGFB0TH 

33  33  33 

33 

60 

60  60  60 

60 

60 

22 

2M2B57N6T 
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LISTING  2.  TRNSBSE  (Cont'd) 


5 • 7PE  *2 

1 .306-5 

1.656*1 

5 .50E *1 

6.50E*1 

5.24E-6 

1 *65E  * 1 

5 .386  -7 

7 .406  *0 
7.34E-? 

7.306*0 

2.416*3 

6.706*2 

2.906-5 

OCHANOf BOfHPRIV  BASE 
2N2B94 

34  34  34 

34  60 

60  60  60 

60  60 

1 .95  E *0 

3 .4PE-7 

60  60 

9.351*7 

7 . 1 Of -5 

1.305E*! 

1 .7B5E*1 

4.60E*0 

7.78E-6 

1 .606  *0 

3 .B2E-6 

2 . 3 OE  *0 

1 .716-2 

4.606*1 

2 .30E-5 

DIHA  NOE B 3THPRE V BASE 
2N3013 

34  34  34 

34  60 

60  60  60 

7.»P6*2 

B.40E-S 

9.50E  *0 

9.50E  *0 

1 .516*1 
3.87E-6 

9 .50E  *0 
S.BOE-b 

1 .45  E *0 
1.71E-7 

1 .651*0 
2.596-2 

3.656*2 

5.806-5 

0CHANGE30TH 

33  33  33 

33  60 

60  63  60 

60  60 

2N3375  T 

3 . 70E  *3 

9.60E-1 

3.05E-1 

4.5CE-1 

3.70E  *1 

7.906*1 

6.00E-L 

6.00E-1 

1 .56E-4 

1 .13E-4 

6.97E-1 

5.066-1 

4.10E-3 

1 .80E-3 _ 

ONE  W BOTH  34  34  34  34  60  60  60  60  60  60 

2N3439 


8.506*4 

1.306-2 

1 .856*0 

1.856*0 

4.756*3 

5.3BE-6 

1 .856*0 

1 .27E-4 

2 .506-1 

2 .4 1 E -2 

2 .956-1 
5.7CE-1 

1.906*4 

3.706-2 

0N6N  B 31 H 

2N35B4 

34  34  34 

34  60 

60  60  63 

63  60 

2.156*3 

3 .20E -2 

1.306*0 

4.156*0 

2.15E  + 3 

1 .306*0 

8 .006-2 

3 .606-1 

2 .606-1 
2.306*0 

2.156*3 

1 .506-2 

ONE  * BOTH 

2N5629 

34  34  34 

34  60 

60  63  60 

60  60 

1.506*3 

1 .40E-5 

1.806*1 

1 .806*1 

9.256*1 

2.906-6 

1 .806  *1 
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5.3  TSTUPDT 

5.3.1  Flowchart 

Figure  9 shows  the  TSTUPDT  detailed  logical  flowchart. 


Figure  9.  TSTUPDT  detailed  logical  flowchart. 
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5,3,2  Variable  Definitions 


The  TSTUPDT  variables  are  defined  as  follows: 


Variable 

DTA 

I,  J 

IBLANK 

IDTA 

IOUTPT 

IR 

XREF 

KEY 

KOUNT 

LAST 

LNTHREC 

LI 

L2 

OUTPUT 


Definition 

Array  containing  data  record  read  from  mass  storage 
Dummy  DO  loop  indices 

Word  containing  10  hollerith  blank  characters 
Integer  array  equivalenced  to  DTA  array  for  testing 
Array  containing  output  record  to  be  printed 

Variable  containing  hollerith  representation  for  three-digit 
coded  reference 

Variable  containing  three  octal  digit  representation  of  coded 
reference 

Array  used  for  named  index  of  mass -storage  file 

Variable  to  count  number  of  records  printed  per  page 

Number  of  records  in  mass-storage  file,  as  determined  via 
named  index  array 

Number  of  words  in  record  being  processed 

Lower  limit  index  used  for  printing  references  in  output 
record 

Upper  limit  index  used  for  printing  references  in  output 
record 

Real  variable  array  equivalenced  to  IOUTPT 


5,3.3  Program  Explanation 

Overview. — This  program  reads  the  diode  parameter  data  from 
the  mass-storage  file.  Then  record  by  record,  it  formats  the  data  into 
a legible  output  record  that  is  printed  on  the  system  output. 


Details. — TSTUPDT  opens  the  mass-storage  file,  prints  an 
initial  header  label  on  the  system  output,  and  then  searches  the  named 
index  to  find  the  number  of  data  records  in  the  file.  If  the  end  of  the 
named  index  is  not  found  within  the  maximum  specified  length  of  this 
index,  an  error  message  is  printed,  and  the  job  ends. 
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For  each  of  the  records  in  the  file,  TSTUPDT  first  calls 
DECODLN  to  determine  the  actual  record  length?  then  it  calls  subroutine 
BLNKFIL  to  blank  out  the  memory  area  into  which  the  record  will  be  read. 
It  calls  READMS  to  read  the  data  from  the  mass-storage  file.  The  DO  30 
loop  processes  the  first  nine  words  of  the  record,  which  are  the  TRAC 
parameters.  For  each  of  these  words,  a hollerith  blank  is  initially 
stored  into  the  corresponding  word  of  the  output  record.  If  data  exist 
for  that  word  in  the  diode  data  record  from  the  mass-storage  file , these 
data  are  reformatted  into  a hollerith  representation  and  stored  in  the 
corresponding  word  of  the  output  record,  overwriting  the  blanks 
previously  stored  there.  The  10th  word  of  the  data  record  is  then 
stored  as  the  10th  word  of  the  output  record.  This  word  contains  the 
TRAC  reference  or  a blank  field  if  there  is  no  TRAC  reference.  If  there 
are  no  further  data  words  in  the  record  read  from  mass  storage,  the 
program  goes  to  statement  41.  Otherwise,  the  DO  40  loop  is  next 
executed  to  reformat  the  damage  data  words  and  their  references  for 
printing. 


For  each  damage  parameter,  the  output  record  storage  area  for 
the  data  and  the  reference  is  initialized  with  blank  fields.  The  data 
word  is  then  checked  for  the  presence  of  data.  If  no  data  exist  for  the 
current  word,  the  program  skips  to  the  end  of  the  loop  at  statement  40. 
Otherwise,  the  data  are  encoded  into  the  output  record.  Then  FINDREF  is 
called  to  obtain  the  reference,  and  OCTINTG  is  called  to  convert  this 
octal  coded  reference  into  a hollerith  field.  The  hollerith-formatted , 
coded  reference  is  then  placed  in  the  output  record. 

After  this  loop  is  completed,  the  line  print  count  is 
incremented.  If  the  line  limit  for  a page  has  been  reached,  another 
header  label  is  printed  at  the  top  of  the  next  page  on  the  system 
output,  and  the  line  count  is  reinitialized.  At  statement  45,  the  lower 
and  upper  index  limits  for  the  references  are  calculated.  The  named 
index  and  the  output  data  record  are  then  printed  followed  by  the  three 
digit  references.  This  process  ends  the  loop  at  statement  50.  After 
all  the  records  have  been  processed  through  this  iteration,  end- 
of-file  message  is  printed,  and  the  job  ends. 

5.3.4  Output  Data  Format 

The  TSTUPDT  output  has  a header  label  at  the  top  of  each 
page.  The  first  line  of  this  header  label  describes  all  the  standard 
TRAC  parameters  and  the  reference  for  these  parameters.  These  headings 
are  descriptors  for  the  quantities  in  the  first  of  the  three  lines  of 
data  for  each  device,  printed  below  the  label.  The  second  and  third 
lines  of  this  label  contain  the  descriptors  for  the  diode  damage 
parameters.  The  corresponding  damage  parameters  are  in  the  second  of 
the  three  lines  of  data  for  each  device.  The  fourth  line  of  the  label 
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merely  indicates  that  the  coded  reference  for  each  damage  parameter  is 
printed  directly  below  the  corresponding  data  word.  The  coded 
references  are  the  items  in  the  third  line  of  printed  output  for  each 
device.  The  diode  data  words  are  defined  in  section  4.1,  and  the  coded 
references  are  defined  in  appendix  A. 

If  no  TRAC  parameters  are  available  for  a given  device , only 
the  device  name  is  printed  on  the  first  of  the  three  lines.  If  no 
damage  parameters  exist  for  a given  device,  the  second  and  third  lines 
for  that  data  set  are  blank. 

At  the  end  of  the  job,  the  message  "TEST  OF  FILE  COMPLETED" 
is  printed  on  the  system  output. 

For  the  errdr  condition  described  in  section  5.3.3,  the 
message  printed  is  "END  OF  INDEX  NOT  FOUND,  JOB  TERMINATED." 

5.3.5  Sample  Run 

The  deck  setup  uses  these  control  cards: 

EMCPR , CM64000 , T35 . 

TASK,TN******* ,PW***** ,TRTS.  RUZIC 
ATTACH, TAPE11, DIODES, ID=*******. 

FTN (R=2 ,L) 

MAP (PART) 

LGO. 

7/8/9 

The  deck  setup  uses  these  programs: 

Program  TSTUPDT 
Subroutine  OCTINTG 
Subroutine  BLNKFIL 
Subroutine  DECODLN 
Subroutine  FIND REF 
0/6/7/8/9 

Card  0/6/7/8/9  is  the  end-of-file  punch.*  The  listings  of  these 
programs  are  in  appendix  B,  and  the  subroutines  are  described  in 
appendix  C.  The  reader  can  ask  the  author  for  the  program  output. 

5.4  TRNUPDT 

5,4,1  Flowchart 


Figure  10  shows  the  TRNUPDT  detailed  logical  flowchart. 


*All  punches  0,6,  7,  8,  and  9 must  be  punched  in  column  1,  A 
normal  CDC  6600  does  not  require  the  0,  but  the  CDC  200  user  terminal 
emulator  on  a Mohawk  2400  terminal  does  require  it. 


38 


5.4.2  Variable  Definitions 


The  TRNUPDT  variables  are  defined  as  follows: 
Variable  Definition 


FMT  Variable  to  modify  FORMAT  1,  to  change  format  on  successive 

uses 

JK  Subscript  to  pick  up  different  elements  of  integer  array 

NCHAR  to  implement  different  modifications  to  FORMAT  1 

Jl,  J2  Dummy  indices  to  print  reference  data  in  output  record 

NCHAR  Integer  array  containing  different  variables  to  be  used  in 

FORMAT  1 

N Integer  variable  used  to  obtain,  in  turn,  each  element  of 

NCHAR  array;  used  in  data  words  using  variable  format: 
FORMAT  1 

All  other  variables  used  in  TRNUPDT  are  identical  in  use  and 
meaning  to  their  definitions  under  TSTUPDT. 

5,4.3  Program  Explanation 

Overview. — TRNUPDT  reads  the  transistor  parameter  data  from 
its  mass-storage  file  and  then,  record  by  record,  formats  the  data  into 
a legible  output  record,  which  is  printed  on  the  system  output. 

Details. — TRNUPDT  first  defines  necessary  constants,  opens 
the  mass-storage  file,  and  then  calls  subroutine  PRNTHD  to  print  the 
initial  header  label  on  the  system  output.  The  named  index  is  then 
searched  to  find  the  actual  number  of  records  in  the  mass-storage  file. 
If  the  end  of  the  named  index  is  not  found  within  the  maximum  specified 
length  of  this  index,  an  error  message  is  printed,  and  the  job  ends. 

TRNUPDT  does  one  iteration  of  the  DO  50  loop  for  each  record 
in  the  file.  This  loop  is  started  with  a call  to  subroutine  DECODTN  to 
determine  the  actual  length  of  the  current  record.  Then  subroutine 
BLNKFIL  is  called  to  blank  out  the  memory  area  into  which  the  data 
record  will  be  read.  Subroutine  READMS  is  then  called  to  read  the  data 
from  the  storage  file.  The  DO  30  loop  processes  the  first  20  words  of 
the  record  (the  standard  TRAC  parameters).  For  each  of  these  words,  a 
hollerith  blank  is  initially  stored  into  the  corresponding  word  of  the 
output  record.  If  data  exist  for  that  word  in  the  transistor  data 
record  from  the  mass-storage  file,  then  these  data  are  reformatted  into 
a hollerith  representation  and  stored  in  the  corresponding  word  of  the 
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output  record,  overwriting  the  blank  field  previously  stored  there.  The 
21st  word  of  the  data  record  is  then  stored  as  the  21st  word  of  the 
output  record.  This  word  contains  the  reference  for  the  TRAC  data  or  a 
blank  field  if  there  is  no  reference. 

If  there  are  no  further  data  words  in  the  record  read  from 
mass  storage,  the  program  goes  to  statement  43.  Otherwise,  the  DO  40 
loop  is  executed  to  reformat  the  first  12  damage  data  words  and  their 
references  for  printing.  Each  of  these  words  is  checked  for  the 
presence  of  data.  The  program  goes  to  statement  40,  the  end  of  the 
loop,  if  no  data  exist  for  the  current  word.  Otherwise,  the  data  are 
encoded  into  the  output  record,  and  FINDREF  is  called  to  obtain  the 
encoded  octal  reference.  OCTINTG  is  then  called  to  convert  this 
reference  into  a hollerith  format,  which  is  placed  in  the  output  record. 
At  this  step,  the  DO  42  loop  is  initiated  to  process  the  last  four 
damage  data  words.  These  are  processed  in  a separate  loop  solely  to 
conserve  space  in  the  output  listing.  A variable  format  is  used  for 
these  four  words,  and  they  are  allocated  less  space  on  the  listing. 

TRNUPDT  begins  each  iteration  of  this  loop  by  checking  if  the 
data  already  processed  are  the  entire  record;  if  so,  the  program  goes  to 
statement  43.  Otherwise,  it  tests  that  data  exist  for  the  current  word. 
If  they  do,  an  integer  constant  is  selected  from  the  NCHAR  array  and 
encoded  in  the  variable  FORMAT  1.  FORMAT  1 then  encodes  the  current 
data  word  into  the  output  record.  Next,  subroutine  FINDREF  is  called  to 
obtain  the  reference  for  this  data  word.  OCTINTG  converts  this 
reference  into  a hollerith  format,  which  is  then  placed  in  the  output 
record.  Its  placement  ends  this  iteration  of  the  DO  42  loop. 

At  the  completion  of  this  loop,  the  line  print  count  is 
incremented.  If  this  count  exceeds  the  preset  page  limit,  subroutine 
PRNTHD  is  called  again  to  print  a label  at  the  top  of  the  next  page. 
The  line  count  is  then  reinitialized.  The  statements  beginning  at  45 
then  print  the  device  identifier,  the  TRAC  reference,  The  statements 
beginning  at  45  then  print  the  device  identifier,  the  TRAC  reference, 
the  20  standard  TRAC  parameters , and  two  of  the  damage  parameters  and 
their  references.  The  print  statement  outputs  the  remainder  of  the 
damage  parameters,  and  the  last  print  statement  outputs  the  individual 
references  for  these  parameters  to  complete  this  iteration  cf  the  DO  50 
loop. 

After  all  iterations  of  this  loop  have  been  executed,  the 
program  prints  a message  that  the  job  is  completed  and  then  halts. 
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5.4.4  Output  Data  Format 

At  the  top  of  each  page  is  a label.  The  first  two  lines 
contain  the  descriptors  for  the  device  identifier,  the  20  standard  TRAC 
parameters,  the  TRAC  reference,  and  descriptors  for  the  C-B  and  E-B  bulk 
resistances.  Next  is  a blank  line  for  spacing  and  clarity.  The 
remaining  two  lines  of  the  label  contain  the  descriptors  for  the  various 
damage  parameters.  These  parameters  are  defined  in  section  4.2,  and  the 
references  are  listed  in  appendix  A. 

The  remainder  of  the  page  contains  a listing  of  the  contents 
of  the  data  records,  with  each  record  occupying  four  lines.  The  first 
two  lines  of  each  set  contain  the  actual  data  for  the  descriptors  in  the 
first  two  lines  of  the  label.  The  third  line  of  each  data  set  contains 
the  damage  parameters,  as  described  in  the  last  two  lines  of  the  label, 
with  the  corresponding  references  just  below  in  the  fourth  line . 

If  the  end  of  the  named  index  is  not  found  within  its  maximum 
specified  length,  the  following  message  is  printed:  "END  OF  INDEX  NOT 
FOUND,  JOB  TERMINATED."  At  the  end  of  the  job,  the  message  "TEST  OF 
FILE  COMPLETED"  is  written  on  the  system  output. 

5.4.5  Sample  Run 

The  deck  setup  uses  these  control  cards: 

EMCPR,CM64000 ,T35 , 

TASK,TN*******,PW*****,TRTS.  RUZIC 
ATTACH , TAPE1 1 , TRANS , ID= ******* . 

FTN (R=2 ,L) 

MAP (PART) 

LGO. 

7/8/9 

Card  7/8/9  is  the  end-of-record  punch. 

The  deck  setup  uses  these  programs: 

Program  TRNUPDT 
Subroutine  PRNTHD 
Subroutine  OCTINTG 
Subroutine  DECODLN 
Subroutine  BLNKFIL 
Subroutine  FINDREF 
0/6/7/8/9 

Card  0/6/7/8/9  is  the  end-of-file  punch.  The  listings  of  these  programs 
are  in  appendix  B,  and  the  subroutines  are  described  in  appendix  C.  The 
reader  can  ask  the  author  for  the  program  output. 
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6.  CONCLUSIONS  AND  RECOMMENDATIONS 

Several  organizations  and  individuals  have,  with  varied  motivations, 
undertaken  to  measure  and  calculate  parameters,  to  ascertain  the  level 
at  which  semiconductors  will  be  damaged  from  electrical  transients 
induced  by  an  EMP.  Many  results  of  very  early  measurements  were  later 
found  to  be  unusable,  primarily  because  many  of  the  transistors  were 
measured  C-E,  whereas  much  of  the  theoretical  damage  modeling  concerns 
the  separate  semiconductor  junctions.  Another  problem  was  that  no 
statistical  analysis  was  presented  with  the  early  data  to  enable  a user 
to  know  the  precision  and  accuracy  of  the  results  published. 
Unfortunately,  what  has  been  called  "engineering  judgment"  was  the 
criterion  used  to  select  a resultant  single  data  value  from  a series  of 
measurements  on  a given  device,  (The  published  data  value  is  not 
directly  measurable.)  As  an  even  larger  problem,  other  organizations 
have  published  some  of  these  same  data  as  their  own.  Thus,  to  create  a 
credible  data  base , extreme  care  must  be  taken  to  weed  out  data  whose 
reliability  is  unknown. 

In  this  data  base,  we  have  eliminated  all  data  that  are  not  related 
to  specific  semiconductor  junctions.  We  found  all  available  information 
on  the  original  sources  of  the  measured  data  and  ascertained  whether  the 
pulsing  was  performed  on  an  individual  junction.  The  actual  data  points 
were  reviewed  to  see  if  they  adequately  substantiated  the  published 
damage  constant  that  had  been  derived  from  the  data.  (The  damage 
constant  is  derived  from  a line  that  is  supposed  to  be  a discriminant 
function  of  the  most  probable  failure  or  nonfailure  of  the  device 
junction  due  to  a transiert  EMP.)  Often  the  damage  constant  published 
was  not  clearly  justified  by  the  data  points.  Some  data  sets  had  too 
few  points.  Some  had  the  points  too  clustered  to  correctly  define  a 
damage  line  over  several  orders  of  magnitude  in  time.  Some  sets  had  no 
failure  points,  so  the  damage  discriminant  line  was  a mere  guess.  Other 
sets  had  almost  all  failure  points,  so  the  stated  discriminant  was  not 
confirmed. 

Therefore,  eliminated  from  the  data  base  were  many  damage  constants 
that  were  not  well  substantiated . 

This  data  base  has  been  instituted  to  comprise  all  useful 
semiconductor  data  that  are  available  in  a format  that  can  be  used  by 
circuit  analysis  codes.  Some  circuit  analysis  codes2  have  been  modified 
to  incorporate  EMP  damage  assessment  and  are  being  used  at  HDL  for  this 
purpose.  A data  base  containing  the  necessary  information  and 


2G.  Baker, 
Modified  TRAC 
1975) . 


A.  McNutt,  B.  Shea,  and  D.  Rubenstein,  Damage  Analysis 
Computer  Program,  Harry  Diamond  Laboratories  TM-75-6  (May 
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conforming  to  the  format  requirements  of  these  codes  is  then  a basic 
requirement  that  is  intended  to  be  solved  by  the  work  documented  here. 
Further  work  is  required.  Further  information  that  would  greatly 
enhance  the  usefulness  of  this  data  base  is  statistical  parameters  on 
the  included  data.  Some  suggested  parameters  are  sample  size,  standard 
estimate  of  error,  tolerance,  standard  deviation,  and  reliability  of 
each  of  the  data  items.  A careful  assessment  must  be  made  to  determine 
the  minimum  number  of  parameters  that  provide  the  maximum  amount  of 
useful  information  that  could  be  used  in  analyzing  a circuit.  Also, 
since  a set  of  statistics  on  each  damage  parameter  could  vastly  enlarge 
the  disk  storage  requirement,  it  is  highly  desirable  to  design  a format 
by  which  these  sets  of  data  could  be  encoded  into  as  few  words  as 
possible. 

These  possibilities  are  being  explored  for 
data  bases. 


implementation  in  these 


APPENDIX  A. — EXPERIMENTAL  SOURCES 


The  data  contained  in  this  data  base  were  derived  from  a number  of 
sources.  The  source  and  methodology  used  in  obtaining  the  data  could  be 
crucial  in  ascertaining  the  degree  of  reliance  to  be  placed  on  results 
derived  from  these  data.  The  so-called  damage  constants  are  not 
physical  constants,  but  rather  a type  of  derived  statistical  average. 
Thus,  the  source  and  methodology  are  often  important  considerations  in 
assessing  the  reliability  and  precision  of  the  data. 


Code  Report 

001  D.  Wunsch,  Preliminary  Report — Semiconductor  Damage  Study, 

Braddock,  Dunn  S McDonald  (December  1968) . 

002  D.  Wunsch  and  L.  Marzetelli,  BDM  Final  Report,  Vol.  1, 

Semiconductor  and  Nonsemiconductor  Damage  Study,  Braddock,  Dunn 
& McDonald  Report  BDM-375-69-F-0168,  Prepared  for  U.S.  Army 
Mobility  Equipment  Research  and  Development  Center,  Fort 
Belvoir,  VA  (April  1969). 

003  J.  B.  Singletary  and  D.  Wunsch,  Final  Report  on  Semiconductor 
..arnage  Study,  Phase  II,  Braddock,  Dunn  & McDonald  Report 
BDM/A-66-70-TR  (June  1970) . 

004  J.  B.  Singletary  and  D.  Wunsch,  Final  Summary  Report  on 

Semiconductor  Damage  Study,  Phase  II,  Braddock,  Dunn  & McDonald 
Report  BDM/A-84-70-TR  (February  1971)  . 

005  D.  Wunsch,  R.  Cline,  and  G.  Case,  Semiconductor  Vulnerability, 
Phase  II  Report,  Vol.  I,  Theoretical  Estimates  of  Failure 
Levels  of  Selected  Semiconductor  Diodes  and  Transistors, 
Braddock,  Dunn  & McDonald  Report  AFWL-TR-73-119,  Vol.  1 (July 
1973)  . 


006  D.  Wunsch,  R.  Cline,  and  G.  Case,  Semiconductor  Vulnerability, 
Phase  II  Report,  Theoretical  Estimates  of  Failure  Levels  of 
Selected  Semiconductor  Diodes  and  Transistors,  Braddock,  Dunn  & 
McDonald  Report  BDM/A-42-69-R  (December  1969) . 

007  J.  B.  Singletary,  W.  D.  Collier,  and  J.  A.  Meyers, 

Semiconductor  Vulnerability,  Phase  III  Report,  Vol.  II, 

Theoretical  Estimates  of  Failure  Levels  of  Selected 
Semiconductor  Diodes  and  Transistors,  Braddock,  Dunn  and 

McDonald  Report  BDM/A-75-70-TR  (July  1973). 
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Code 

010 

011 

012 

013 

014 

015 

016 

017 

020 

021 


Report 

D.  Durgin,  C.  Jenkins,  and  G.  Rimbert,  Methods,  Devices,  and 
Circuits  for  the  EMP  Hardening  of  Army  Electronics,  Braddock, 
Dunn  and  McDonald  Report  BDM/A-119-72-TR,  ECOM-0275-F  (July 
1972)  . 

D.  Alexander,  J.  Almassy,  G.  Brown,  D.  Durgin,  C.  Jenkins,  R. 
Randal,  A.  Unwin,  and  J.  Schwartz,  EMP  Susceptibility  of 
Semiconductor  Components,  Boeing  Aerospace  Co.  and  Braddock, 
Dunn  & McDonald,  Boeing  Report  D224-13042-1  (September  1974) . 

D.  Alexander,  J.  Almassy,  G.  Brown,  D.  Durgin,  C.  Jenkins,  R. 
Randal,  A.  Unwin,  and  J.  Schwartz,  Addendum  to  EMP 
Susceptibility  of  Semiconductor  Components,  Boeing  Aerospace 
Co.  and  Braddock,  Dunn  & McDonald,  Boeing  Report  D224-13042-2 
(July  1975) . 

D.  Alexander,  J.  Almassy,  G.  Brown,  D.  Durgin,  C.  Jenkins,  R. 
Randal,  A.  Unwin,  and  J.  Schwartz,  Electromagnetic 
Susceptibility  of  Semiconductor  Components,  Final  Report, 
Boeing  Aerospace  Co.  and  Braddock,  Dunn  & McDonald,  Boeing 
Report  D224-13042-1,  BDM  Report  A-110-74-TR  (September  1975) . 

G.  Brown,  D.  Duncan,  J.  Cooke,  D.  Joppa,  Experimental  Damage 
Constant  Summary,  Braddock,  Dunn  & McDonald  Report 
BDM/A-99-74-TR-R1  (September  1974) . 

Diode  and  SCR  D.A.T.A.  Book,  Derivation  and  Tabulation 
Associates,  Inc.  (1970) . 

Transistor  D.A.T.A.  Book,  Derivation  and  Tabulation  Associates, 
Inc.  (1969). 

DNA  EMP  Handbook  (U) , Vol.  2,  Analysis  and  Testing,  Chapter  13, 
data  derived  from  SAP-1  computer  listing,  DASIAC,  General 
Electric  Co. — TEMPO,  DNA  Report  2114H-2  (November  1971) . 
(CONFIDENTIAL) 

DNA  EMP  Handbook  (U) , Vol.  2,  Analysis  and  Testing,  Chapter  13, 
data  derived  from  experimental  data  in  DASA  EMP  Handbook, 
DASIAC,  General  Electric  Co. — TEMPO,  DNA  Report  2114H-2 
(November  1971) . (CONFIDENTIAL) 

DNA  EMP  Handbook  (U) , Vol.  2,  Analysis  and  Testing,  Chapter  13, 
data  derived  from  estimated  data  in  DASA  EMP  Handbook,  DASIAC, 
General  Electric  Co. — TEMPO,  DNA  Report  2114H-2  (November 
1971) . (CONFIDENTIAL) 
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DNA  EMP  Handbook  (U) , Vol . 2,  Analysis  and  Testing,  Chapter  13, 
data  derived  from  calculations  of  Section  III  of  same  document, 
DAS I AC,  General  Electric  Co. — TEMPO,  DNA  Report  2114H-2 
(November  1971) . (CONFIDENTIAL) . 

DNA  EMP  Handbook  (U) , Vol.  2,  Analysis  and  Testing,  Chapter  13, 
tables,  DAS I AC , General  Electric  Co. — TEMPO,  DNA  Report  2114H-2 
(November  1971) . (CONFIDENTIAL) 

J.  Miletta,  EMP  Effects  on  Components — Preprint,  Harry  Diamond 
Laboratories,  unpublished. 

J.  Miletta,  Lance  System  Component  Damage  Characterizations, 
Vol.  1,  Harry  Diamond  Laboratories,  unpublished. 

L.  Tasca,  Submicrosecond  Pulse  Power  Failure  Modes  in 
Semiconductor  Devices,  General  Electric  Co.  Re-Entry  and 
Environmental  Systems  Division  Report  70SD401  (January  1970) . 

D.  Tasca,  Energy- Time  Dependence  of  Second  Breakdown  in 
Semiconductors  for  Submicrosecond  Electrical  Pulses,  General 


Electric  Co. 
(October  1967) . 

Missile 

and 

Space 

Division 

Report  67SD7253 

D.  Tasca,  J. 

Peden, 

and 

J. 

Andrews , 

Theoretical  and 

Experimental  Studies  of  Semiconductor  Device  Degradation  Due  to 
High  Power  Electrical  Transients,  General  Electric  Co.  Report 
73SD4289  (December  1973). 

B.  Kalab,  Analysis  of  Failure  of  Electronic  Circuits  from 
EMP-Induced  Signals — Review  and  Contribution,  Harry  Diamond 
Laboratories  F»port  HDL-TR-1615  (August  1973) . 

G.  Baker,  EMP  Vulnerability  Analysis  of  M109,  MHO 
Self-Propelled  Howitzers,  Harry  Diamond  Laboratories, 
unpublished. 

G.  Baker,  EMP  Vulnerability  Analysis  of  Radio  Sets  AN/PRC-77, 
AN/VRC-64,  and  AN/GRC-160  (U) , Harry  Diamond  Laboratories 
Report  HDL-TR-1747  (February  1976) . (SECRET  RESTRICTED  DATA) 

G.  Gornak  et  al,  EMP  Assessment  for  Army  Tactical 
Communications  Systems:  Transmission  Systems,  Series  No.  1, 
Radio  Terminal  Set  AN/TRC-145  (U) , Harry  Diamond  Laboratories 
Report  HDL-TR-1746  (February  1976) . (SECRET  RESTRICTED  DATA) 
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Code 

035 

050 

051 

052 

053 

054 

055 

056 

057 

060 

061 

062 

063 


Report 


B.  Kalab,  Harry  Diamond  Laboratories,  unpublished,  measured 
data  on  AN/TRC-145  semiconductor  components;  damage  constants 
obtained  by  analyzing  measured  data  via  program  SEMCOM. 

J.  D.  Holder  and  V.  Ruwe,  Statistical  Component  Damage  Study, 
U.S.  Army  Missile  Command  Report  RG-TR-71-1  (January  1971) . 

P.  H.  Stadler,  Failure  Threshold  and  Resistance  of  the 
Protected  and  Unprotected  2N2222  Transistor  in  the  Short  Pulse 
Width  Regime,  Philco-Ford  Corp.  Report  U-4976  (May  197‘2)  . 

EMP  Electronic  Design  Handbook,  Boeing  Aerospace  Co.  Report 
D224- 10019-1  (April  1973) . 

C.  Jenkins  and  J.  Meyers,  Integrated  Circuits  Test  Program, 
Final  Report,  Braddock,  Dunn  & McDonald  Report  BDM/A-98-73-TR 
(July  1973) . 

D.  Alexander,  T.  Zwolinski,  and  C.  Jenkins,  Integrated  Circuits 
and  Discrete  Semiconductor  Components  Test  Program,  Braddock, 
Dunn  & McDonald  Technical  Directive  4-6 , Monthly  Progress 
Reports  (January,  February,  March  1974) . 

J.  Smith,  Pulse  Power  Testing  of  Microcircuits,  Rome  Air 
Development  Command  Report  RADC-TR-71-59  (October  1971) . 

Pulse  Damage  Data  from  Integrated  Circuits  and  Electronic 
Parts,  Boeing  Aerospace  Co.  Memorandum  2-6731-0000-C/S-102 
(September  1973) . 

G.  Rimbert  et  al.  Resistor  Modeling  Program,  Final  Report, 
Braddock,  Dunn  & McDonald  ASV  Work  Order  2-14  [n.d.J. 

A.  Brandstein,  Harry  Diamond  Laboratories,  calculations 
performed  on  experimental  data  measured  by  B.  Kalab  for 
threshold  of  power  to  damage  for  pulses  of  10-ys  width. 

Data  values  contained  in  previous  computer  data  base, 
maintained  by  Harry  Diamond  Laboratories  at  U.S.  Army  Equipment 
Research  and  Development  Center,  Fort  Belvoir,  VA. 

B.  Kalab,  Harry  Diamond  Laboratories,  experimentally  measured 
data  affected  by  pulser  limitations. 

DNA  Handbook  (U) , forward  biased  damage  constants  depicted 
graphically,  DNA  Report  2114H-2  (November  1971)  . 
(CONFIDENTIAL) 
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064  C.  Ruzic,  Harry  Diamond  Laboratories,  weighted  average  of  data 
published  in  reference  for  code  013. 

065  C.  Ruzic,  Harry  Diamond  Laboratories,  average  of  data  published 
in  reference  for  code  013. 

066  G.  Gornak  et  al,  Harry  Diamond  Laboratories,  data  obtained  from 
reference  for  code  034,  but  for  which  conflicting  data  exist  in 
reference  for  code  025. 

067  D.  Tasca,  J.  Peden,  and  D.  Nepreux,  Pulsed  Power  Failure  Modes, 
Conference  Proceedings,  Component  Degradation  from  Transient 
Inputs,  U.S . Army  Mobility  Equipment  Research  and  Development 
Center,  Fort  Belvoir,  VA  (April  1970)  . 

070  C.  Ruzic,  Harry  Diamond  Laboratories,  data  derived  from 

averaging  means  of  data  presented  in  reference  for  code  067. 

100  G.  Brown,  S.  Jones,  R.  Randall,  J.  Schwartz,  Discrete 

Semiconductor  EMP  Data  Summary,  Boeing  Aerospace  Co.  and 
Braddock,  Dunn  & McDonald,  Boeing  Report  D224-13043-1,  BDM 
Report  A-111-74-TR  (September  1974) . 


777 
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APPENDIX  B. — PROGRAM  LISTINGS 


This  appendix  lists  the  programs  for  DTABSE,  TRNSBSE,  TSTUPDT,  and 
TRNUPDT . 


APPENDIX  B 


EMCPR.CMbAOOO.TlOO. 

1 ASK.TNEM7  1603  .PWPRMPT  , TAT S . RUZ  1C 
ATTACH, TAP  Ell, DIODE  , I D = EM71G03 . 
REQUEST, TAPE12,*PF. 

EXTEND, TAP  Ell. 

FTNIR=2,LI 
M AP  I PART  ) 

LOO. 

C ATALDG, TA  PE  12 .DIODE , 1 D=EM71603 . 

W 


PROGRAM  DTABSEI  I NPUT .OUTPUT  , T APE5= I NPUT, T APE6= OUT  PUT ,T APE  1 1 , 

1 TA  PE  12  1 

DIMENSION  BOTHPRM ( 50  1 , TRACPRM50),  DAMGPRH 1 50 1 , RE  C ORD 150), 

1 KEY1I501) 

COMMON  /A/ID,  LNTHDIO,  KOPT,  10PTS12I,  IRE  F S 1 15  I , IDXTRA  , 1 BLANK  , 

1 I ZE  RO , I BOTH  , TRAC,  DAMG  , XNEGIND,  KEY  *501  I , LNTHREC  , CHNGE 
EQUIVALENCE!  BOTHPRM ( 1 ) , TRAC  PRM 1 1 I , DAMGPRM(l)  1 , 1 I BL ANK , BL ANK  1 
EQUIVALENCE  ( TRACREF,  IREFSI1)  ),  < XNEGIND,  NEGINDF  1 
INTEGER  TRAC,  DAMG,  CHNGE,  DELETE,  REFS, SORT 
DATA  L L A ST  , I E LANK  , 1 Z ERO , 1 BOTH , TRAC ,DAMG/1 OHL AST  ,10H 

1 , 0,  10HBGTH  , 10HTRAC  , 10HDAMG  / 

DATA  XNEGIND, SORT  / A0007777777777777000B,  10H50RT  / 

DATA  DELETE .CHNGE  , REFS  /10HDELETE  , 10HCHANGE  .10HREFS  / 


C 


c 

LNTHDIO 

IS  THE  NO.  OF 

c 

LNTHREC 

IS  THE  NO.  OF 

c 

1 OPTSI  1 ) 

CAN  BE 

c 

DELETE 

c 

CHANGE 

c 

NEW 

c 

SORT 

c 

I OPTS (21 

ARE  THE  POSSIB 

c 

THESE  OPTIONS 

c 

TRAC 

c 

DAMG 

c 

BOTH 

c 

REFS 

c 

c 

( 

C 

C IF  A CATALOGUE  IS  DONE  BY  MISTAKE 
C REWRITTEN,  A BLANK  FILE,  CONTAINI 

C 

C 

IF  ILE  * II 
JFILF  * 12 

C LNTHDIO  INITIALLY  SET  TO  CORRESPOND 
r DETERMINED  BY  DIMENSIONED  SIZE  OF  » 
LNTHDIO  = 2 A 9 

CALL  OPENMSI  IFILE,  KFV,  999,  1 
CALL  OPENMS  I JFILE,  K E Y 1 , 999, 

1 NEW  RE  C = 0 
IDELETF  * 0 

C S ARCH  KEY  ARRAY  TO  DETERMINE  NUMBE 
DO  3 1 * 1,  LNTHDIO 


RECORDS  IN  THF  FILE 
WORDS  IN  THE  RECORD  CURR 


TO  DELETE 
TO  CHANGE 
TO  CREATE 
TO  RESORT 
L£  OPT  IONS 
ARE 

TO  CHANGE 
TO  CHANGE 
CHANGE  OR 
TO  CHANGE 


AN  EXISTING  R 
AN  EXISTING  R 
A NEW  RECORD 
♦ REWRITE  THE 
WHEN  IOPTSU 

OR  DELETE  STD 
OR  DELETE  NON 
DELETE  STD  ♦ 
OR  DELETE  REF 


•aaa«»»«4««a»9«»aaso»«e» 


WITHOUT  THE  FILE  BEING 
N&  ONLY  THE  INDEX  KEY,  W 


TO  MAX.  NO.  DF  RECS  IN 
KEY"  ARRAY 

1 

1 1 


R UF  RECORDS  IN  DATA  FIL 


ENTLY  UNDER  CONSIO 

ECORD 

ECORD 

FROM  DATA  CARDS 
EXISTING  F1LF 
1 = "CHANGE" 

. TRAC  PARAMETERS 
-STD  TRAC  OR  DAMAG 
NON-STD  TRAC  + DAM& 
ERENCES  ONLY 


»•»»»«« » ooo»ooe»oo 


SORTED  AND 
ILL  RESULT 


FILE  AS 


E 
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I F ( Kf  Y ( 2* I I .NE.  0 1 GO  TU  3 
L * 1 - 1 
PRINT  905,  L 
GO  TO  5 
3 CONTINUE 

PRINT  915,  LNTHOIO 
STOP 

5 INTHDIP  = L 

C READ  INPUT  DATA  OPTIONS  + REFS  FOR  CHANGES  TO  DATA  BASE  FOR  THIS  DEVICE 
10  READ  <5,8001K0PT,(I0PTS(J)  ,J-1,2),(  IREFSIII.l  -1,12),  LAST,1DXTRA 
I F t EOF  ( 5 1 I 86,  15 
15  IF  I IDPTStl)  .EQ.  SORT  ) GO  TU  95 
I F I I0PTSI1)  .EQ.  DELETE  ) GO  TO  80 
I F I lUPTSIl)  .EQ.  CHNGE  1 GO  TO  fcO 
C IOPTSU)  ASSUMED  TO  BE  "NEW  RECORD” 

I F ( I0PTSI2)  . E Q . I BOTH  ) GO  TO  AO 
1 F t IOPTSU)  .NE.  TRAC  ) GO  TO  30 
C NEW  TRAC  PARAMETER  DATA  ONLY 
NPARMS  = 9 


PRINT  1 

1 FORMAT!  1H1,  * STANDARD  TRAC  DATA  ONLY  * ) 

CALL  DTAREAD  I TRACPRM,  NPARMS,  IDFLG  I 
IF ( IDFLG  .NE . 0 I GO  TO  55 

C STORE  NEW  TRAC  OATA  IN  OUTPUT  REC  ♦ FILL  BAL.  OF  REC  WITH  NEG.  INDF. 

CALL  TRACDTA  I TRACPRM,  RECORD,  IFILE  I 
GO  T 0 50 

C NEW  DAMAGE  DATA  ♦ NON-STD.  TRAC  PARAMETERS  ONLY 
30  NPARMS  = 6 ♦ KOPT 

CALL  OTAREAD ( DAMGPRM , NPARMS,  IDFLG  ) 

IF  ( IDFLG  .NE.  0 ) GO  TO  55 

CALL  DAM  GOT  A t BOTHPRH , RECORD,  IFILE  I 

GO  TO  50 

l NEW  RECORD  WITH  BOTH  TRAC  ♦ I DAMAGE  •*  NON-STD.  TRAC  PARAMETERS) 

AO  NPARMS  = 15  ♦ KOPT 

CALL  DTAREAD  t BOTHPRM , NPARMS,  IDFLG  ) 

IF  ( IDFLG  .NE . 0 ) GO  TO  55 

CALL  BOTHDTA ( BOTHPRM,  RECORD,  IFILE  ) 

C WRITE  NEW  OUTPUT  RECORD  AT  END  OF  PREVIOUS  DATA  ♦ INCREMENT  NEW  RECORO  COUNT 
50  LNTHREC  = lb  + KOPT 

CALL  WRITMS!  IFILE,  RECORD,  LNTHREC,  ID,  0 I 
INEWREC  = INEWREC  ♦ 1 
LNTHOIO  = LNTHDIO  ♦ 1 
GO  TO  90 

C PRINT  ERROR  MESSAGE  THAT  A RECORD  ALREADY  EXISTS  WITH  SUPPOSEDLY  NEW  ID 
55  PRINT  925,  ID,  IOPTSU),  I0PTS(2I 
GO  TO  90 

C PRINT  ERROR  MESSAGE  THAT  NO  RECORD  ALREADY  EXISTS  WITH  SUPPOSEDLY  OLD  ID 
58  PRINT  935,  ID,  IOPTSU),  I0PTSC2) 

GO  Til  90 

C 


L TREAT  CASFS  OF  CHANGFS  TO 
60  IF!  IOPTSU)  .EQ.  REFS 
NPARMS  = 15  ♦ KOPT 
IF!  IOPTSU)  .EQ.  TRAC 
IF!  IOPTSUI  .EQ.  0 AMG 
CALL  OTAREAD!  C HNGPRM  , 
C OTAREAD  WILL  CALL  DECODLN 


EXISTING  RECORDS 
) GO  TO  70 

) NPARMS  = 9 
1 NPARMS  = 6 ♦ KOPT 
NPARMS,  IDFLG  I 

WHICH  WILL  STORE  THE  REC  LENGTH  IN  LNTHREC 
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I F ( IDFLG  .EG.  0 ) GO  TO  58 

IFI  IOPTSI2)  .EQ.  TRAC  ) CALL  RE VTRAC I CHNGPRM ,Rf CORO , IF  I LE I 

IFI  I0PTSI2)  .EQ.  DANG  ) CALL  RE VDAMG I CHNGPRM , RE  CORD , I F I LE  I 

1 F I IOPTSI2)  . E Q . I BOTH  ) CALL  RE VBOTH I CHNGP AM , RE  CORO  , IF  I LE > 

C REWRITE  EXISTING  RECORD  WITH  NEW  DATA 
C DETERMINE  RECORD  LENGTH  FOR  REVISED  RECORD 

1 C NT  = NPARMS  ♦ 1 : 

IFI  IOPTSI2I  .EQ.  TRAC  ) GO  TO  65 
IF(  I0PTSI2)  .EQ.  IBOTH  I GO  TO  63 
I C NT  = NPARMS  ♦ 10 
63  LNTHREC  = HAXOt  LNTHREC.  ICNT  I 
65  CALL  WRITMSI  IFILE,  RECORD,  LNTHREC,  ID,-1  I 
GO  TO  90 
C 

C TREAT  CHANGES  TO  REFERENCES  ONLY 

[ »0«8«>«»»»3»86»«8388*»883»a38»«8»308»«»»»««3»80»»»»»*8»«880«*«»»88«***8»»8ft 

c 

70  DO  72  1 = 1,  LNTHDIO 

IFI  KEY  1 2*1 ) .EQ.  IDXTRA  ) GO  TO  79 
72  CONT INUE 

C NO  MATCH  FOUND  IN  NAMED  INDEX  FOR  SPECIFIED  "ID" 

PRINT  910,  IDXTRA 
GO  TO  90 

C IMPLEMENT  CHANGES  TO  REFERENCES 

79  CALL  DEC ODLN I KEYI2»I+1),  LNTHREC  I 

CALL  RFADMSI  IFILE,  RECORD,  LNTHREC,  IDXTRA  I 
C MUST  LINK  IND1CIES  TO  DATA  WORD  * NOT  REF  BECAUSE  SINGLE  REF  CAN  BE  USED 
C FOR  MORE  THAN  ONE  DATA  WORD 

IFI  IREFStli  .EQ.  -0  ) REC0RDI10J  * BLANK 
IFI  1RFFSI1I  .EQ.  0 I GO  TO  791 
RE  CORD  1 1 0 ) = TRACREF 
791  1 R * 3 

K9  = 16  ♦ KOPT 
DO  78  I = 11,  K9 
IFI  I .GT.  12  I IR  * 2 
C CHECK  FOR  NO  CHANGE  TO  THIS  REFERENCE 

IFI  IREFSI  I-12+1R)  .EQ.  0 1 GO  TO  78 
C CHANGE  OR  DELETF  OLD  REF  ♦ STORE  THIS  CHANGE  IN  OUTPUT  RECORD 
IFI  IREFSI  1 — 12  ♦ 1R  1 .NE.  -0  ) GO  TO  75 
C DELETE  OLD  REFERENCE 
II  * I2ER0 

CALL  RFFENCDI  RECORDII),  II  ),  RETURNS  1771 
GO  TO  78 

C CHANGE  OLD  REFERENCE 

75  II  * IREFSI 1-12  ♦ IR  I 

CALL  RFFENCDI  R EC  ORD III,  II  I,  RETURNS  177) 

GO  TO  78 

77  PRINT  900,  I,  IDXTRA,  RECORDII),  II 

78  CONT  INUE 

C REWRITE  EXISTING  RECORD  WITH  REFERENCES  CHANGED 

CALL  WRITMSI  IFILE,  RECORD,  LNTHREC,  IDXTRA,  1 I 
GO  TO  90 

C TREAT  CASE  OF  ENTIRE  RECORD  TO  BE  DELETED 
C DELETE  ID  FROM  NAMED  INDEX  ARRAY  ♦ INCREMENT  COUNTER 

80  IN  = LNTHDIO  - 1 

DO  83  I * 1,  LNTHDIO 
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1F<  KE  Y 1 2 » I ) . NF . IDXTRA  ) GO  TO  83 
DO  8 1 J = I , LN 
KEY(2*J)  = KEY(2*J*21 
81  KEY(2*J*1)  = KEY ( 2*J*3  ) 

GO  TO  85 
83  CONTINUE 

C IE  IT  FALLS  THRU  END  OF  LOOP,  NO  MATCH  FOUND  FOR  -ID- 
PRINT  910,  IDXTRA 
GO  TO  90 

89  PR  INT  810 
GO  TO  92 

C INCREMENT  COUNTER  OF  RECORDS  DELETED 
85  IDELETE  = IDELETE  ♦ 1 
LNTHDIO  * LNTHDIO  - 1 
C CHECK  FOR  LAST  DATA  SET 

90  1 F I LAST  .NE.  LLAST  ) GO  TO  10 
C IF  THERE  HAVE  NOT  BEEN  ANY  RECORDS  ADDED  OR  DELETED,  CALL  EXIT 

92  IF!  INEWREC  .EO.  0 .A.  IDELETE  .EQ.  0 1 CALL  EXIT 
C SORT  NAMED  INDEX  ARRAY 

C WRITE  A NEW  CYCLE  ON  THE  FILE  WITH  ADDITIONS  AND  DELETIONS  AS  WELL  AS  CHANGES 
95  CALL  SORT KEY  I KEY,  LNTHOIO  I 
C TRANSFER  INDEX  DATA  TO  OUTPUT  FILE  INDEX 
DO  93  I = 1, LNTHDIO 
KFVl (2*1  ) = KEY ( 2* I ) 

98  CONT  1NUE 

C PRINT  NO.  OF  DEVICES,  CONTENTS  OF  INDEX  ARRAY  AND  INDIVIDUAL  REC  LENGTHS 
PRINT  990,  LNTHDIO 
DO  100  I = 1,  LNTHDIO 
CALL  DEC  ODL‘1  ( KEY(2*1+1),  LNTHREC  I 
CALL  REAOMS( I FILE  , RECORD , LNTHREC,  KEY12*I)  J 
CALL  WR  I TMS ( JFILE,  RECORD,  LNTHREC,  KEY1(2*I),  0 ) 

CALL  DEC  ODLN ( KEY1 (2*1 *1 ) , LN  ) 

PRINT  950,  KEY1(2*I),  LNTHREC,  LN,  ( RECORDI  I J ) , I J*  1, LNTHREC  I 
100  CONT  INUE 

CALL  CLOSMSI 1 FILE  ) 

CALL  CLOSMS( JFILE » 

STOP 

800  FORM  AT ( I 1 , Afc  , A9 , A10,  11(03,1X1,  A9,  IX,  A10  I 

310  FORM  AT ( 1H1,  *END  OF  FILE  ENCOUNTERED  WHILE  ATTEMPTING  TO  READ  NEX 
IT  DATA  SET*  / IX,  *JOB  ENDED  BASED  ON  DATA  ALREADY  READ  • I 
900  FORM  AT ( IHO,//  » REFERENCE  OUT  OF  RANGE  FOR  DATA  ITEM  NO.  * 15, 

1 * FOR  DEVICE  * , A10,  * VALUE  IS  « EI2.3,  * REF  IS  *,  03  / * OLD 
2REFERENCE  NOT  CHANGED  * I 

905  FORMAT!  1H0,  III  * NUMBER  OF  RECORDS  IN  THE  FILE  IS  *,  15  I 
910  FORMAT!  IHO  //  * NO  MATCH  FOUND  IN  NAMED  INDEX  ARRAY  FOR  DEVICE  TY 
1PE  WH1C  WAS  TO  ONLY  HAVE  REFERENCES  CHANGED,  ID  WAS  «,  A10,  / 

2 * THESE  CHANGES  WERE  THEREFORE  IGNORED  + PROCESSING  CONTINUES  * I 
915  FORMAT!  1H0,///*E0F  NOT  REACHED  AFTER  »,  15,  * DEVICE  TYPES*! 

925  FORMAT (IHO///*  ATTEMPTED  TO  CREATE  A NEW  DATA  REC  WITH  THE  SAME  ID 

1 AS  AN  OLD  REC,  THIS  NEW  DATA  SET  WAS  IGNORED  ♦ PROCESSING  CONTINU 

2 E S * / * ID  WAS  *,  A10,  * I0PTSC1)  WAS  *,  A6,  * I0PTSI2)  WAS  *,  A9) 

935  FORM  AT (IHO///*  ATTEMPTED  TO  CHANGE  AN  EXISTING  RECORD  IN  THE  DATA 

1FILE,  AND  THE  SPECIFIED  "ID-  WAS  NOT  FOUND  IN  THE  NAMED  INDEX  ARRA 
2 Y *,/  * TH I S DATA  SET  WAS  IGNORED  ♦ PROCESSING  CONTINUES  */  * ID  WA 
3S  *,  A10,  * 10PTSI1)  WAS  *,  Afc,  * 10PTSI2I  WAS  *,  A9  // 1H  I 
990  F ORM  AT (IHO,  *THER  E ARE  NOW  *,  19,  * RECORDS  ON  THE  MASS  STORAGE  FI 
1LE  *,  / IX,  »DEVICE»,  11X,  *R f C LENGTH*  //  1H  1 

| I 
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950  FORMAT  I IX,  A 10,  2X,  14,  2X,  1 4 , 5 1 2X , 0 20  I / < 25X , 020 , 2X.020 ,2 X,02  0 , 

1 2X,  020,  2X , 020  ) ) 
fcND 

SUBROUTINE  REVTRACC  A,  RECORD,  IFILE  ) 

C THIS  SUBROUTINE  HILL  CHECK  for  ADDITIONS  OR  DELETIONS  TO  THE  EXISTING  RECORD 

C 

C A MINUS  ZERO  (-0)  IN  THE  A ARRAY  OR  THE  IREFS  ARRAY  HILL  INDICATE  THAT 

C THE  CORRESPONDING  DATA  VALUE  IS  TO  BE  DELETED  FROM  THE  EXISTING  RECORD. 

C A NON  ZERO  ( NON  BLANK  FOR  IREFS(l)  I VALUE  HILL  INDICATE  THAT  ANEH  VALUE 
C IS  TO  BE  STORED  IN  THE  DATA  RECORD 

C 

C THIS  SUBROUTINE  ASSUMES  THAT  “ID”  HAS  ALREADY  BEEN  CHECKED  AGAINST  THE 

C CONTENTS  OF  THE  KEY  NAMED  INDEX  ARRAY  , AND  A HATCH  HAS  FOUND 

COMMON  /A/ID,  LNTHDI 0 , KOPT,  10PTSC2),  IREFS  1151  , IDXTRA,  1 B LANK , 

I I ZE  RO , I BOTH , TRAC,  DAMG,  XNEGIND,  KEYI50I),  LNTHREC,  CHNGE 
DIMENSION  RECORD  ISO),  All) 

EQUIVALENCE  ( TRACREF  , 1REFSC1)  ) 

1 CALL  READMSI  IFILE,  RECORD(l),  LNTHREC,  ID  ) 

DO  10  I = 1,9 

IF  t All)  . EQ . 0.  I GO  TO  10 
IF ( At! ) .EQ.  -0.  ) GO  TO  5 
C NEW  VALUE  TO  BE  PLACED  IN  THE  RECORD 
RECORD!!  ) = All) 

GO  TO  10 

5 RECORD!!  ) = XNEGIND 
10  CONT  INUE 

RE  CO RD ( 1 0 ) = TRACREF 
20  CONT  INUE 

IF!  I0PTS12I  .EQ.  1 BOTH  ) GO  TO  30 
RETURN 

ENTRY  REVDAMG 

CALL  READMSI  IFILE,  RECORD,  LNTHREC,  ID  I 
C SET  INDICIES  FOR  DO  LOOP  TO  HANDLE  DAMAGE  ♦ NON-STD.  TRAC  PARAMETERS 
I T 1 = 1 
I T 2 = fc 
30  IS  = 2 
J = 10 

I T 2 = I T 2 ♦ KOPT 
DO  60  I = IT! , 1 T 2 
J = J ♦ 1 

C IS  DATA  TO  BE  DELETED... IF  SO,  REF  IS  ALSO  DELETED 
IF  ! All)  .NE . -0.  I GO  TO  33 
RECORD(J)  = XNEGIND 
GO  TO  60 

33  IF  1 I .GT.  I T 1 + 1 ) 1 R = 1 

C IS  THERE  A NEH  VALUE  FOR  CURRENT  DATA  ITEM... 

IF!  All)  .EQ.  0.  ) GO  TO  38 
C IS  THERE  A NEH  REFERENCE  FOR  THIS  NEH  DATA  VALUE 
IF!  IREFSCI— IT1+IR I .GT.  0 ) GO  TO  36 
C IS  THE  CLD  REFERENCE  TO  BE  DELETED... 

IF!  1REFSCI-IT1+IR)  .NE.  -0  ) GO  TO  34 
C TREAT  CASE  OF  NEH  DATA  WITHOUT  REF  ♦ OLD  REFERENCE  TO  BE  DELETED 
CALL  REFENCD!  A(l),  IZERO  ),  RETURNS  140) 

RECORD(J)  = All) 

GO  TO  60 

C TREAT  CASE  OF  NEH  DATA  TO  BE  COMBINED  HITH  OLO  REFERENCE 

34  CALL  FINDREF!  RECORD(J),  IRF  ) 
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CALL  REFENCDI  All),  IRF  ),  RETURNS!**) 

RECORDIJ)  = All  ) 

CO  TO  60 

C TREAT  CASE  OF  NEU  DATA  VALUE  ♦ NEW  REFERENCE 
36  CONTINUE 

C PRINT  STATEMENTS  FOR  CHECKOUT 

C PRINT  800,  ID,  I,  I T 1 , IR,  Ail),  A (I)  , 1 RE F S 1 1 -1 Tl« 1 R > 

C 800  FORM  AT  1 1 X , A10,  5X,  *1  *•,  13,  5X,  * I T 1 *•,  13,  5X , «IR  = *,  13, 

C 1 5X  , 020,  5 X , E13.3,  5X,  ‘IREFS  * *,  03,  5X,  ‘CHANGE*  I 
C 801  FORMAT!  IX,  020,  SX,  020  > 

CALL  REFENCDI  AM),  I REF  S ( I- I T 1*  IR  ) ),  RETURNS!**) 

RE  CO  RD I J ) * All) 

C PRINT  801, All),  RECORD  I J ) 

GO  TO  60 

C IS  NEW  REFERENCE  TO  BE  STORED  IN  THE  OLD  DATA  VALUE... 

38  IF!  IRE F SII-IT1+IR)  .EO.  0 ) GO  TO  60 
C IS  OLD  REF  TO  BE  DELETED  FROM  OLD  DATA  VALUE... 

IF!  IREFSI  I - 1 T 1 ♦ IR ) .EQ.-O  ) GO  TO  50 
C TREAT  CASE  OF  OLD  DATA  TO  BE  COMBINED  WITH  NEW  REFERENCE 

CALL  REFENCDI  RECORDIJ),  IREFSII-IT1+IR)  ),  RETURNSIAO) 

GO  TO  60 

C DELETE  OLD  REFERENCE  * LEAVE  OLD  DATA  VALUE 

50  CALL  REFENCDI  RECORDIJ),  1ZER0  ),  RETURNS! *0 ) 

GO  TO  60 

C TREAT  ERROR  RETURNS  FROM  REFENCD 


*0 

PR  INT 
GO  TO 

900, 

60 

J t 

ID, 

All), 

I ZERO 

*2 

PRINT 
GO  TO 

900, 

60 

J f 

ID, 

Ail), 

IRF 

** 

PRINT 
GO  TO 

900, 

60 

J t 

ID, 

All), 

IREFSII-IT1+IR ) 

*6 

PRINT 

900, 

J t 

10, 

RECOROIJ),  IREFSII-IT1+IR) 

60  CONTINUE 
RETURN 

ENTRY  REVBOTH 
1 T 1 = 10 
IT2  = 15 
GO  TO  1 

900  FORMAT!  1H0,//  ‘ REFERENCE  OUT  OF  RANGE  FOR  DATA  ITEM  NO.  • 15, 

1 • FOR  DEVICE  » , A10,  » VALUE  IS  * E12.3,  * REF  IS  •,  03  / • OLD 
2REFERENCE  NOT  CHANGED  • ) 

END 

SUBROUTINE  TRACDTAI  A,  RECORD,  IFILE  ) 

C SUBROUT  INE  TO  ADD  PARAMETERS  FOR  NEW  DEVICE  TYPES  TO  EXISTING  TRAC  ♦ DAMAGE 
C DATA  BASE 

C A IS  TRAC  AND/OR  DAMAGE  PARAMETER  ARRAY 

C 

C N IS  IS  THE  NUMBER  OF  DATA  WORDS  READ  FROM  CARDS 

C RECORD  IS  OUTPUT  RECORD  FOR  WRITING  TO  MASS  STORAGE 

C 

C IREFS  ARE  REFERENCES  ON  THE  DATA  SOURCES 

C IFILE  IS  THE  LOGICAL  MASS  STORAGE  UNIT  NUMBER 

C 

COMMON  /A/ID,  LNTHDIO,  KOPT,  I0PTSI2),  I REF  S 1 1 5 ) . IDXTRA,  I BLANK  , 

1 I ZE  RO , 1 BOTH , TRAC,  DAMG,  XNEGIND,  KEY  1501  ) , LNTHREC,  CHNGE 
DIMENSION  REC0RDI50),  All) 

EQUIVALENCE  I TRACREF,  IREFSI1)  ),  I I R LANK , BLANK  ) 
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I T 3 = 15 

10  00  20  1 * 1,9 
RECORD!  1 > * Adi 

IFI  All)  .EQ.  0 ) RECORD  It)  * XNEGIND 
20  CONTINUE 

C IF  THERE  WAS  NO  TRAC  REFERENCE,  A BLANK  IS  STORED 
RE  CO  RD 1 1 0 I * TRACREF 
C IS  THIS  A BOTHDTA  ENTRY.... 

IFI  I OP  T 5 1 2 ) .EO.IBOTH  ) GO  TO  50 

C STORE  NEGATIVE  INDEFINITE  IN  DAMAGE  AND  NON-STD.  TRAC  PARAH  PORTION  OF  RECORD 
DO  30  I = 11,  1T3 
30  RECORD  1 1 ) = XNEGIND 
RETURN 

ENTRY  DAHGDTA 
DO  90  I = 1,9 

C STORE  NEGATIVE  INDEFINITE  IN  STD.  TRAC  PARAMETER  PORTION  OF  THE  RECORO 
90  R E CO  RD 1 1 ) = XNEGIND 
REC0RDI10)  * BLANK 

C SET  INDICIES  FOR  DO  LOOP  TO  HANDLE  DAMAGE  ♦ NON-STD.  PARAMETERS 
I T 1 = 1 
1 T 2 = 6 
50  IR  = 2 
J = 10 

I T 2 = I T 2 ♦ KOPT 
DO  GO  I = IT1  , I T 2 
J - J ♦ 1 

C TEST  FOR  PRESENCE  OF  DATA  VALUE 
IFI  All)  .EQ.  0.  ) GO  TO  55 
IFI  I .GT.  IT1+1  ) I R = 1 
C PRINT  STATEMENTS  F OR  CHECKOUT 

C PRINT  800,  ID,  I,  1 T 1 , IR,  All),  A l 1 ) , I REF S 1 1 -I Tl*  I R ) 

C BOO  FORM  AT  1 1 X , A10,  5X,  «I  = *,  13,  5X,  »IT1  = *,  13,  5X,  *1R  = •,  13, 

C 1 5X , 020,  5X,  E13.3,  5X,  *IREFS  * «,  03,  5X,  *NEW«  ) 

C 801  FORMAT!  IX,  020,  5X,  020  I 

CALL  REFENCDI  All),  IREFSI I-IT1  + IR)  ),  R ETURNS 1 5 6) 

53  RE  CORD  I J ) = All) 

C PRINT  801, All),  RECORD  I J ) 

GO  TO  60 

55  RECORDIJ)  = XNEGIND 
GO  TO  60 

C ERROR  RETURN  ON  REFERENCE  ID  OUT  OF  RANGE,  STORE  ZERO  FOR  REF. 

5fc  1ZER0  = 0 

PRINT  900,  J,  10, All),  IREFSII-IT1*!*) 

CALL  REFENCDI  All),  IZERO  ),  RETURNS  I 56 ) 

RECORDIJ  ) = All) 

60  CONT  INUE 
RETURN 

ENTRY  BOTHOTA 
I T 1 = 10 
I T 2 = 15 
GO  TO  10 

900  FORMAT!  1H0,//  * REFERENCE  OUT  OF  RANGE  FOR  DATA  ITEM  NO.  • 15, 

1 » FOR  DEVICE  * , A10,  * VALUE  IS  « E12.3,  * REF  IS  *,  03  / • OLD 
2REFERENCE  NOT  CHANGED  * ) 

END 

SUBROUTINE  SORTKEYI  KEY,  LENGTH  ) 

C SUBROUTINE  TO  SORT  THE  NAMED  KEY  ARRAY 
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0 1 HE  NS  ION  KEVUI 
LI  = LENGTH  - 1 
DO  30  I * lt  LI 
K2  * KET(2*I I 
K 3 = KEV(2*I«)> 

1 1 * I ♦ I 

DO  20  J * II.  LENGTH 

IFI  KE  V I 2 * I I .LT.  KEY(2*J)  I GO  TO  20 

K E Y ( 2° I I * KE  Y ( 2* J I 

KEY( 2« I ♦ 1 I * KE  Y I 2* J+ 1 I 

KEVI 2* J1  * K2 

KEYI2»J*1)  * K3 

K 2 = KEY (2*1  I 

K3  = KEY(2*I*1) 

20  CONT 1NUE 
30  CDNT INUE 
RETURN 
END 

SUBROUTINE  DTAREAD  ( A,  N,  IDFLG  I 
DIMENSION  All) 

COMMON  /A/ID,  LNTHDIO,  KOPT,  10PTS(2),  IREFSI15),  IDXTRA,  IBLANK  , 

1 I ZE  RO , I BOTH . TRAC.  DAMG.  XNEGIND,  KEYI501),  L NT  HR EC  . CHNGE 
INTEGER  CHNGE 
C READ  INPUT  DATA  CAROS 
J = 7 

READ  15,8501  ID,  I All),  1=  1,J  I 
5 1 F ( J.GE.  N I GO  TO  10 
J1  ' J * 1 
J - J ♦ 8 

READ  (5,860  I ( All).  I = J1  ,J  I 
GO  TO  5 

10  DO  20  I = 1, LNTHDIO 

IFI  KEVI 2*1  I .EO.  ID  ) GO  TO  AO 
20  CONT  INUE 

C NO  MATCH  IN  NAMED  KEY  INDEX  WITH  CURRENT  "ID" 

IDFLG  = 0 
RETURN 

C HATCH  FOUND  IN  NAMED  KEY  INDEX  WITH  CURRENT  "ID" 

AO  IDFLG  = ID 

IFI  I0PTSI1)  .NE.  CHNGE  I GO  TO  50 
CALL  DFCODLNI  KEVI2*I*1),  LNTHREC  I 
50  RETURN 

850  FORMAT!  AIO,  7E10.1  I 
860  FORMAT  I 8E10.1  ) 

END 

SUBROUTINE  REFENCDI  DT A , IREF  I.  RETURNS(I) 

C SUBROUTINE  TO  STORE  AN  ENCODED  REFERENCE  INTO  THE  THREE  LEAST  SIGNIFICANT 
C OCTAL  CHARACTERS  OF  A REAL  VARIABLE  DATA  WORD 
DATA  MASK  1 / 777777777777777770006  / 

IFI  IREF  .GT.  777B  I GO  TO  20 
DT  A = I AND  I DTA , MASK]  ) .OR.  IREF  I 
RETURN 
20  RETURN  I 
END 

SUBROUTINE  DECODLNI  K,  LNTHREC  I 

C SUBROUTINE  TO  DECODE  THE  RECORD  LENGTH  FR  DM  THE  DATA  IN  NAMED  INDEX  ARRAY 
C THIS  DA  I A IS  APPARENTLY  CONTAINED  IN  THE  12TH  THRU  19TH  OCTAL  CHARACTERS  OF 
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1 


C 

C 

c 


c 

c 


THE  ODD  NUMB  EKE 0 WORDS  OF  THE  NAMED  KEY  INDEX,  EXCLUSIVE  OF  THE  FIRST  WORD 
LATA  MASK  / 0 7 7 7 7 77 /70000000 OOOC B / 

7ERC  OUT  ALL  OCTAL  CHARACTERS  EXCEPT  THE  RECORD  LENGTH 
KK  * AND)  K,  MASK  ) 

SHIFT  RECORD  LENGTH  TO  LOW  ORDER  BITS  OF  THE  DATA  WORD,  IN  INTEGER  FORMAT 
LNTHREC  * SHIFT!  KK,  -33  ) 

RETURN 

END 

SUBROUTINE  F I NDRE  F ( D T A , I RE F ) 

SUBROUTINE  Ttl  DECODE  A 3 OCTAL  DIGIT  REFERENCE  STORED  IN  THE  3 LEAST 
SIGNIFICANT  OCTAL  CHARACTERS  OF  A REAL  VARIABLE  DATA  WORD 
DATA  MASK?  / 00000000000000000777B  / 

1REF  « AND!  DT A , MASK?  ) 

RETURN 

END 
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EHCPR,CM69000,  T100. 

T A5K.TNEM7  1603, PWPRMPT ,T RTS.  RUZIC 
ATTACH,TAPE11,TRANS,ID'-EM71603. 
REQUEST, TAPE12,»PF. 

EXTEND, TAPEU. 

F TNIR-2.L1 
M AP ( P ART  ) 

LGO. 

CATALOG, TAPE  12, TRANS, ID=EM71603. 

H 


PROGRAM  TRNSBSE ( INPUT .OUTPUT,  TAPES - I NPUT , TAPE6 -OUTPUT , TAPE  11 , 

1 TAPE12  1 

DIMENSION  80THPRM  ISO ) , TRACPRM  C50  1 , DAMGPRM (SOI,  REC0RDI50), 

1 KEY  1 ( 50 1 ) 

COMMCN  /A/ID,  LNTHFIL,  KOPT,  I0PTSt2>,  IREFS(IS),  1DXTRA,  IBLANK , 

1 I ZE  RO , I BOTH  , TRAC,  DAMG,  XNEG1ND,  KEY  (SOI ) , LNTHREC,  CHNGE 
EQUIVALENCE!  BQTHPRMI1),  T RACPRH ( 1 ) , DAMGPRM  111  I,  ( BLANK , l BLANK  I 
EQUIVALENCE  I TRACREF,  1REFSI1)  1,  I XNEGIND,  NEGINDF  ) 

INTEGER  TRAC,  DAMG,  CHNGE,  DELETE,  REFS, SORT 
DATA  LLAST,  IBLANK  , I ZERO , I BOTH , TRAC , DAMG/10HLAST  , 1 OH 

1 , 0,  10HBOTH  , 10HTRAC  , 10HDAMG  / 

DATA  XNEGIND, SORT  / G0007777777777777000B,  10H50RT  / 

&ATA  DELETE, CHNGE , REFS  /10HDELETE  , 10HCHANGE  .10HREFS  / 

C 

C LNTHFIL 

C LNTHREC 

C I0PTSI1I 

C 

c 

c 
c 

c 1 OPTS  I 2 ) 

l 

c 
c 
c 
c 

c • 

c 

c 

C IF  A CATALOGUE  IS  DONE  BY  MISTAKE  WITHOUT  THE  FILE  BEING  SORTED  AND 

C REWRITTEN,  A BLANK  FILE,  CONTAINING  ONLY  THE  INDEX  KEY,  WILL  RESULT 

C 

C 

1FILE  = 11 
JF  ILE  = 12 

C LNTHFIL  INITIALLY  SET  TO  CORRESPOND  TO  MAX.  NO.  OF  RECS  IN  FILE  AS 
C DETERMINED  BY  DIMENSIONED  SIZE  OF  -KEY"  ARRAY 
LNTHFIL  = 299 

CALL  OPENMSl  IFILE,  KEY,  500,  1 I 
CALL  OPENMS  I JF1LE,  KEY1,  999,  1 I 
INEWREC  = 0 
•DELETE  r o 

f SEARCH  KEY  ARRAY  TO  DETERMINE  NUMBER  OF  RECORDS  IN  DATA  FILE 
DO  3 I * 1 , LNTHFIL 


IS  THE  NO. 

IS  THE  NO. 

CAN  BE 

DELETE 

CHANGE 

NEW 

SORT 

ARE  THE  PO 

THESE  OPTI 

TRAC 

DAMG 

BOTH 

REFS 


OF  RECORDS  IN  THE  FILE 

OF  WORDS  IN  THE  RECORD  CURRENTLY  UNDER  C0NS1D 


TO  DELETE 
TO  CHANGE 
TO  CREATE 
TO  RESORT 
SSI BLE  OPTIONS 
DNS  ARE 

TO  CHANGE 
TO  CHANGE 
CHANGE  OR 
TO  CHANGE 


AN  EXISTING  RECORD 
AN  EXISTING  RECORD 
A NEW  RECORD  FROM  DATA  CARDS 
♦ REWRITE  THE  EXISTING  FILE 
WHEN  10PTS11)  * -CHANGE" 

OR  DELETE  STD.  TRAC  PARAMETERS 
qR  DELETE  NON-STD  TRAC  OR  DAHAG 
DELETE  STD  ♦ NON-STD  TRAC  *DAMG 
OR  DELETE  REFERENCES  ONLY 
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C 


C 


C 


C 


C 


C 


C 


C 


c 


c 

c 


c 


1FI  KEY  1 2* 1 ) .NE.  0 » GO  TO  3 
l = I - 1 
PRINT  905,  L 
GO  TO  5 
3 CONTINUE 

PRINT  915,  LNTHFIL 
STOP 

5 LNTHFIL  * L 

READ  INPUT  DATA  OPTIONS  ♦ REFS  FOR  CHANGES  TO  DATA  BASE  FOR  THIS  DEVICE 
10  READ  !5,8001K0PT,I10PTS!JI  ,J  = 1,2),I  IREFSI I)  ,1  >1,141,  LAST 
1 F ( EOF  15)  I 84,  15 
15  IF  ( I0PTSI1I  .EQ.  SORT  I GO  TO  95 
I F C IOPTStl)  .EQ.  DELETE  I GO  TO  80 
1 F ( I0PTSI1)  .EQ.  CHNGE  I GO  TO  60 
10PTSC1)  ASSUMED  TO  BE  "NEW  RECORD" 

IF ( I0PTSI2)  . EQ . I BOTH  I GO  TO  40 
IF!  I0PTSI21  .NE.  TRAC  I GO  TO  30 
NEW  TRAC  PARAMETER  DATA  ONLY 
NP ARMS  = 20 
PRINT  1 

1 FORMAT!  1 H 1 , > TRAC  PARAMETERS  ONLY  FOR  THIS  DEVICE  • I 
CALL  DTAREAD  I TRACPRM , NPARMS,  IDFLG  I 
IF!  IDFLG  .NE.  0 I GO  TO  55 

STORE  NEW  TRAC  DATA  IN  OUTPUT  REC  « FILL  BAL.  OF  REC  WITH  NEG.  INDF. 

CALL  TRACTRN  I TRACPRM,  RECORD,  IFILE  I 
GO  TO  50 

NEW  DAMAGE  DATA  + NON-STD.  TRAC  PARAMETERS  ONLY 
30  NPARMS  * 12«  KOPT 

CALL  DTAREAD  I DAMGPRM , NPARMS,  IDFLG  I 
IF  I IDFLG  .NE.  0 I GO  TO  55 
CALL  DAMGTRN!  BOTHPRM , RECORD,  IFILE  I 
GO  TO  50 

NEW  RECORD  WITH  BOTH  TRAC  ♦ I DAMAGE  ♦ NON-STD.  TRAC  PARAMETERS! 

40  NPARMS  * 32  ♦ KOPT 

CALL  DTAREAD!  BOTHPRM,  NPARMS,  IDFLG  I 
IF!  IDFLG  .NE.  0 » GO  TO  55 
CALL  BOTHTRNI  BOTHPRM,  RECORD,  IFILE  I 
WRITE  NEW  OUTPUT  RECORD  AT  END  OF  PREVIOUS  DATA  ♦ INCREMENT  NEW  RECORD  COUNT 
50  LNTHREC  * 33  ♦ KOPT 

.CALL  WRITHSI  IFILE,  RECORD,  LNTHREC,  ID.  0 I 
1 NEW  REC  * 1NEWREC  ♦ 1 
LNTHFIL  = LNTHFIL  ♦ 1 
GO  TO  90 

PRINT  ERROR  MESSAGE  THAT  A RECORD  ALREADY  EXISTS  WITH  SUPPOSEDLY  NEW  ID 
55  PRINT  925,  ID,  I0PTSI1),  I0PTSI2) 

GO  TO  90 

PRINT  ERROR  MESSAGE  THAT  NO  RECORD  ALREADY  EXISTS  WITH  SUPPOSEDLY  OLD  ID 
58  PRINT  935,  ID,  I0PTSI1),  I0PTS12) 

GO  TO  90 


TREAT  CASES  OF  CHANGES  TO 
60  IF!  IOPT  S 12 1 .EQ.  REFS 
NPARMS  * 32  ♦ KOPT 
IF!  IOPT  S !2 I .EQ.  TRAC 
IF!  IOPT S 1 2 ) .EQ.  DAMG 
CALL  DTAREAD!  CHNGPRM , 
DTAREAD  WILL  CALL  DECODLN 


EXISTING  RECORDS 
I GO  TO  70 

I NPARMS  * 20 
I NPARMS  * 12 ♦ KOPT 
NPARMS,  IDFLG  I 

WHICH  WILL  STORE  THE  REC  LENGTH  IN  LNTHREC 
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I F ( IDFLC  .EO.  0 ) GO  TO  58 

I F ( IDPTS12)  .EQ.  TRAC  ) CALL  RVSTRAC I CHNGPRH , RE  CORD  , IFI Lt » 

1 F ( 10PTS12)  .EQ.  DANG  > CALL  RVSDAHG ( CHNGPRH .RECORD  , IF  I LEI 

I F ( I0PTSI2I  . E 0 . 1 BOTH  ) CALL  RVSBOTH I CHNGPRH  ,RE CORD  , IFI LE I 

C REWRITE  EXISTING  RECORD  WITH  NEW  DATA 
C DETERMINE  RECORD  LENGTH  FOR  REVISED  RECORD 
I CNT  * NPARHS  ♦ 1 
1 F ( 10PTSI2)  .EQ.  TRAC  ) GO  TO  65 
1 F ( 10PTSI2)  .EQ.  IBOTH  I GO  TO  63 
I C NT  * NPARHS  ♦ 21 

C SELECT  MAXIHUH  OF  OLD  REC  LENGTH  ♦ NUMBER  OF  DATA  WORDS  IN  REVISION 
63  LNTHREC  = HAXOI  LNTHREC . ICNT  I 
65  CALL  WRITHSt  IFILE,  RECORD,  LNTHREC,  ID.-l  ) 

GO  TO  90 

C 

as »»»„»» ssssssssso  aasaoaas «»•••••••••••••••• 

C TREAT  CHANGES  TO  REFERENCES  ONLY 

£ g,,,,,,,,,.,,,,,,,,,,,,,,,,,,,,,,,,,,,,**,,),,),, saessaaaaaaaasasaaaa****** 

C 

70  READ  ( 5,  601  I ID 
DO  72  I = 1,  LNTHFIL 
IF!  KEY12*I)  .EQ.  ID  I GO  TO  76 
72  CONT  INUE 

C NO  HATCH  FOUND  IN  NAMED  INDEX  FOR  SPECIFIED  -ID- 
PRINT  910,  IDXTRA 
GO  TO  90 

C IMPLEMENT  CHANGES  TO  REFERENCES 

76  CALL  DEC ODLN ( KEYI2*1+1),  LNTHREC  I 

CALL  READHSI  IFILE,  RECORD,  LNTHREC,  ID  I 
IFI  IREF  S 1 1 ) .EQ.  -0  I REC0RDI21I  = BLANK 
IF!  IREF  Sill  .EQ.  0 ) GO  TO  761 
R E CORD  I 2 1 ) = TRACREF 

C MUST  LINK  INDICIES  TO  DATA  WORD  ♦ NOT  REF  BECAUSE  SINGLE  REF  CAN  BE  USED 
C FOR  MORE  THAN  ONE  DATA  WORD 
761  1 R - 3 

C K9  IS  THE  LAST  OUTPUT  DATA  ELEMENT  FOR  WHICH  THE  REF  IS  TO  BE  CHANGED 
K9  ! 31  ♦ KOPT 
DO  78  I = 22,  K9 
IF  | I .GT.  26  I IR  = 2 
IF!  I .GT.  26  I IR  = 1 
C CHECK  FOR  NO  CHANGE  TO  THIS  REFERENCE 

IF!  IREFS!  1-23+IR)  .EQ.  0 ) GO  TO  78 
£ CHANCE  CR  DELETE  OLD  REF  ♦ STORE  THIS  CHANGE  IN  OUTPUT  RECORD 
IF!  IREFS!  1-2  3 + IR  ) .NF.  -0  I GO  TO  75 
C DELETE  OLD  REFERENCE 
II  = 1ZER0 

CALL  REFENCDI  RECORD!!),  II  ),  RETURNS  177) 

GO  TO  78 

C CHANGE  OLD  REFERENCE 

7511*  IREFS! 1-23  + IR  I 

CALL  REFENCDI  RECORD!!),  II  ),  RETURNS  177) 

GO  TO  78 

77  PRINT  900,  1,  ID,  RECORD(I),  II 

78  CONT  INUE 

C REWRITE  EXISTING  RECORD  WITH  REFERENCES  CHANGED 
CALL  WR1TMSI  IFILE,  RECORD.  LNTHREC,  ID,  1 ) 

GO  TO  90 


— 
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C TREAT  CASE  OF  ENTIRE  RECORD  TO  BE  DELETED 
C DELETE  ID  FROM  NANEO  INDEX  ARRAY  ♦ INCREMENT  COUNTER 

80  LN  * LNTHFIL  - I 

DO  83  | ■ 1,  LNTHFIL 

I F ( KEY!  2*1 1 .NE.  ID  I GO  TO  83 

DO  81  J ■ I,  LN 

KEYI 2*J)  * KEY(2*J*2) 

81  KE  Y( 2® J* 1 ) * KEY  I 2*J*3  I 
GO  TO  85 

83  CONT INUE 

C IF  IT  FALLS  THRU  END  OF  LOOP,  NO  MATCH  FOUND  FOR  “ID- 
PRINT  910,  ID 
GO  TP  90 

89  PR INT  810 
GO  TO  92 

C INCREMENT  COUNTER  OF  RECORDS  DELETED 
85  IOELETE  = IDELETE  ♦ 1 
LNTHFIL  = LNTHFIL  - 1 
C CHECK  FOR  LAST  DATA  SET 

90  I F ( LAST  .NE.  LLAST  I GO  TO  10 

C IF  THERE  HAVE  NOT  BEEN  ANY  RECORDS  ADDED  OR  DELETED,  CALL  EXIT 
92  I F ( INEWREC  .EQ.  0 .A.  IDELETE  .EQ.  C I CALL  EXIT 
C SORT  NAMED  INDEX  ARRAY 

C WRITE  A NEW  CYCLE  ON  THE  FILE  WITH  ADDITIONS  AND  DELETIONS  AS  NELL  AS  CHANGES 
95  CALL  SORTKEY { KEY,  LNTHFIL  ) 

C TRANSFER  INDEX  DATA  TO  OUTPUT  FILE  INDEX 
DO  98  I = 1, LNTHFIL 
KEYI  (2*1  I = K E Y( 2* 1 1 
98  CONT  INUE 

C PRINT  NO.  OF  DEVICES,  CONTENTS  OF  INDEX  ARRAY  AND  INDIVIDUAL  REC  LENGTHS 
PRINT  990,  LNTHFIL 
DO  100  I = 1,  LNTHFIL 
CALL  OECODLN!  KEYI2*I+1),  LNTHREC  I 
CALL  READMSI I F I LE , RECORD,  LNTHREC,  KEY(2*I)  I 
CALL  WRITHSt  JFILE,  RECORD,  LNTHREC,  KEY1(2*I),  0 ) 

CALL  DEC  ODLN ( KEY1I2»I«1>,  LN  ) 

PRINT  950,  KEY1(2*II,  LNTHREC,  LN,  ( R ECORD ( I J I , I J * 1, LNTHREC  > 

100  CONT INUE 

CALL  CLQSMStlFILE  ) 

CALL  CLOSHSI JFILE) 

STOP 

800  FORMAT (II,  A6 , A9 , A10,  13(03, IX),  03,  A9  ) 

801  FORMAT)  A10  ) 

810  F ORM  AT ( 1H1,  *END  OF  FILE  ENCOUNTERED  WHILE  ATTEMPTING  TO  READ  NEX 
IT  DATA  SET*  / IX,  *JOB  ENDED  BASED  ON  DATA  ALREADY  READ  * ) 

900  FORMATC  1H0,//  * REFERENCE  OUT  OF  RANGE  FOR  DATA  ITEM  NO.  • 15, 

1 * FOR  DEVICE  » , A10,  • VALUE  IS  • E12.3,  * REF  IS  •,  03  / • OLD 
2REFERENCE  NOT  CHANGED  • ) 

905  FORMAT!  1H0,  III  « NUMBER  OF  RECORDS  IN  THE  FILE  IS  *,  15  ) 

910  FORMAT!  1H0  //  * NCi  MATCH  FOUND  IN  NAMED  INDEX  ARRAY  FOR  OEVICE  TY 
1PE  WHIC  WAS  TO  ONLY  HAVE  REFERENCES  CHANGED,  ID  WAS  «,  A10,  / 

2 * THESE  CHANGES  WERE  THEREFORE  IGNORED  ♦ PROCESSING  CONTINUES  * ) 

915  FORMAT!  1HO,///*EOF  NOT  REACHEO  AFTER  *,  15,  « DEVICE  TYPES*) 

925  FORM  AT ! 1 HO/// * ATTEMPTED  TO  CREATE  A NEW  DATA  REC  WITH  THE  SAME  ID 
1 AS  AN  OLD  REC,  THIS  NEW  DATA  SET  WAS  IGNORED  ♦ PROCESSING  CONTINU 
2E  S » / « ID  WAS  *,  A10,  * I0PTSI1)  WAS  »,  A6,  • 10PTSI2)  WAS  *,  A9 ) 

935  FORM  AT ( 1 HO/// * ATTEMPTED  TO  CHANGE  AN  EXISTING  RECORD  IN  THE  DATA 
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C 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


c 

L 

c 


IFILE,  AND  THE  SPECIFIED  "ID"  HAS  NOT  FOUND  IN  THE  NAMED  INDEX  AN RA 
2Y  *,/  *TH1S  DATA  SET  WAS  1 ON OR ED  ♦ PROCESSING  CONTINUES  •/  * ID  WA 
3S  »,  AlO,  « IOPT$ll)  WAS  *,  A6 , » IOPTS12)  WAS  *,  A6  //1H  I 
9 AO  FORMATIIHO,  *THERE  ARE  NOW  *,  16,  • RECORDS  ON  THE  MASS  STORAGE  FI 
1LE»,  / IX,  *D  E V l C E*  , 11X,  *REC  LENGTH*  //  1H  I 
950  FORMAT!  IX,  AlO.  2X,  IA,  2X,  1 A , 5 ( 2X , 020 1/ I 25X , 020 , 2X ,020 ,2 X,020 , 

1 2 X , 020,  2X,  020  ) ) 

END 

SUBROUTINE  RVSTRACt  A,  RECORD,  IFILE  ) 

THIS  SUBROUTINE  WILL  CHECK  FOR  ADDITIONS  OR  DELETIONS  TO  THE  EXISTING  RECORD 

A MINUS  ZERO  1-0)  IN  THE  A ARRAY  OR  THE  IREFS  ARRAY  WILL  INDICATE  THAT 
THE  CORRESPONDING  DATA  VALUE  IS  TO  BE  DELETED  FROM  THE  EXISTING  RECORD. 

A NON  ZERO  ( NON  BLANK  FOR  I RE  F St  1 > ) VALUE  WILL  INDICATE  THAT  ANEW  VALUE 
IS  TO  BE  STORED  IN  THE  DATA  RECORD 

THIS  SUBROUTINE  ASSUMES  THAT  "ID"  HAS  ALREADY  BEEN  CHECKED  AGAINST  THE 
CONTENTS  OF  THE  KEY  NAMED  INDEX  ARRAY  , AND  A MATCH  WAS  FOUNO 

COMMON  /A/ID,  LNTHFIL,  KOPT,  I0PTSI2),  1REFSI15),  10XTRA,  I BLANK , 

1 IZERO.IBOTH,  TRAC,  DAMG , XNEGIND,  KEYI501),  L NT  HR EC , CHNGE 
DIMENSION  RE  C ORD ( 50  ) , All) 

EQUIVALENCE  I TRACREF,  IREFStl)  ) 

1 CALL  READMS!  IFILE,  RECORD  1 1 ) , LNTHREC  , ID  > 

cro  10  i = 1,20 

IF  I All)  .EC.  0.  ) GO  TO  ID 
IF ( A( I ) .EQ.  -0.  ) GO  TO  5 
NEW  VALUE  TO  BE  PLACED  IN  THE  RECORD 
RECORD! I ) = All) 

GO  TO  10 

5 R E CORD  I I ) = XNEGIND 
10  CONT  INUE 

RECOROI21)  = TRACREF 
20  CONTINUE 

IF!  I0PTSI2)  .EQ.  IBOTH  ) GO  TO  30 
RETURN 

ENTRY  RVSDAMG 

CALL  READMS!  IFILE,  RECORD,  LNTHREC,  10  ) 

SET  INDICIES  FOR  00  LOOP  TO  HANDLE  DAMAGE  + NDN-STD.  TRAC  PARAMETERS 
I T 1 = 1 
I T 2 = 12 
30  IR  = 2 
J * 21 

I T 2 * I T 2 ♦ KOPT 
DO  60  I * 1 T 1 , 1 T 2 
J * J * 1 

IS  DATA  TO  BE  DELETED. ..IF  SO,  REF  IS  ALS.O  DELETED 
IF!  All)  .NE.  -0.  I GO  TO  33 
RE  CORD ( J ) = XNEGIND 
GO  TO  60 

33  IF!  I .GT.  IT1  ♦ 2 ) IR  r 1 
IF!  I .GT.  IT1  ♦ A ) IR  = 0 
IS  THERE  A NEW  VALUE  FOR  CURRENT  DATA  ITEM... 

IF ( All)  .EQ.  0.  ) GO  TO  3B 
IS  THERE  A NEW  REFERENCE  FOR  THIS  NEW  DATA  VALUE 
IF!  IREFSII-IT1+IR)  .GT.  0 ) GO  TO  36 
IS  THE  OLD  REFERENCE  TO  BE  DELETED... 

IF!  IREFSIl-lTinR)  .NE.  -0  ) GO  TO  36 
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C TREAT  CASE  GF  NEW  DATA  WITHOUT  REF  ♦ OLD  REFERENCE  TO  BE  DELETED 
CALL  REFENCD ( A(I),  1ZER0  ),  RETURNS (40) 

RECORD  I J ) = A(I) 

GO  TO  60 

C TREAT  CASE  OF  NEW  DATA  TO  BE  COMBINED  WITH  OLD  REFERENCE 
36  CALL  FINDREFf  RECORD(J),  IRF  ) 

CALL  REFENCD  ( Ad),  IRF  ),  RETURNS  (42 ) 

RECORD (J  ) = AII  ) 

GO  TO  60 

C TREAT  CASE  OF  NEW  DATA  VALUE  ♦ NEW  REFERENCE 

36  CALL  REFENCD!  AII),  IREFSI  I-IT1+IR)  ),  RETURNS  (46) 

RECORD!  J)  « Ad) 

GO  TO  60 

C IS  NEW  REFERENCE  TO  BE  STORED  IN  THE  OLD  DATA  VALUE... 

38  IF!  IREFSCI-1T1+IR)  .EQ.  0 ) GO  TO  60 

C IS  OLD  REF  TO  BE  DELETED  FROM  OLD  DATA  VALUE... 

IF!  IREF  S d -I T1 ♦ I R ) .EQ.-O  ) GO  TO  50 

C TREAT  CASE  OF  OLD  DATA  TO  BE  COMBINED  WITH  NEW  REFERENCE 

CALL  REFENCD!  RECORD(J),  IREFSd-ITl  + IR)  ),  RETURNS (40 ) 

GO  TO  60 

C DELETE  OLD  REFERENCE  ♦ LEAVE  OLD  DATA  VALUE 

50  CALL  REFENCD!  RECORD ( J ) , 12ER0  ),  RETURNS! 40 ) 

GO  TO  60 

C TREAT  ERROR  RETURNS  FROM  REFENCD 


40 

PR  INT 
GO  TO 

900, 

60 

J t 

ID, 

A!  1 ) , 

I ZERO 

42 

PRINT 
GO  TO 

900, 

60 

J * 

ID, 

All), 

iRF 

44 

PRINT 
GO  TO 

900, 

60 

J t 

ID, 

AII  ) , 

1REFSII-IT1+IR ) 

46 

PR  INT 

900, 

J f 

ID, 

RECORD  1 J ) , IRCFS(I-I T1+1R ) 

60  CGNT  INUE 
RETURN 

ENTRY  RVSBOTH 
I T 1 = 21 
I T 2 = 32 
GO  TO  1 

900  FORMAT!  1H0,//  + REFERENCE  OUT  OF  RANGE  FOR  DATA  ITEM  NO.  • 15, 

1 * FOR  DEVICE  * , A10,  » VALUE  IS  • E12.3,  • REF  IS  •,  03  / • OLD 
2REFERENCE  NOT  CHANGED  • ) 

END 

SUBROUTINE  TRACTRN!  A,  RECORD,  IFILE  ) 

C SUBROUTINE  TO  ADD  PARAMETERS  FOR  NEW  DEVICE  TYPES  TO  EXISTING  TRAC  ♦ DAMAGE 
C DATA  BASE 

C A IS  TRAC  AND/OR  DAMAGE  PARAMETER  ARRAY 

C 

C RECORD  IS  OUTPUT  RECORD  FOR  WRITING  TO  HASS  STORAGE 

C 

C IRFFS  ARE  REFERENCES  ON  THE  DATA  SOURCES 

C IFILE  IS  THE  LOGICAL  HASS  STORAGE  UNIT  NUMBER 

C 

COMMON  /A/ID,  LNTHD10,  KOPT,  10PTS12),  IREFSI15),  1DXTRA , I BLANK , 

1 I ZE  RO  , I BOTH , TRAC,  DAHG,  XNEGIND,  KEYI501),  LNTHREC,  CHNGE 
DIMENSION  RECORD  ( 50  ) , Ad) 

EOUI VALENCE  I TRACREF,  IREFS(l)  ),  I I BLANK , BLANK  ) 

C I T 3 I THE  MAX.  NO.  OF  NON-OPT 10NAL  OUTPUT  PARAMETERS 
I T 3 = 37 
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10  CD  20  I = 1,20 
RECORD!!  ) = All  ) 

IF!  Ail)  . E 0 . 0 ) RECORD  III  = XNEG1ND 
20  CONTINUE 

C IF  THERE  HAS  NO  TRAC  REFERENCE,  A BLANK  IS  STOREO 
REC0RDI21)  = TRACREF 
C IS  THIS  A BOTHTRN  ENTRY.... 

1FI  I0PTS12)  .EQ.1B0TH  ) GO  TO  50 

C STORE  NEGATIVE  INDEFINITE  IN  DAMAGE  AND  NON-STD.  TRAC  PARAH  PORTION  OF  RECORD 
DO  30  I = 22,  IT3 
30  RECORD! I ) * XNEGIND 
RETURN 

ENTRY  DANGTRN 
DO  40  I = 1,20 

C STORE  NEGATIVE  INDEFINITE  IN  STD.  TRAC  PARAMETER  PORTION  OF  THE  RECORD 
40  RECORD!!  I = XNEGIND 
REC0RDI21)  * BLANK 

C SET  1NDIC1ES  FOR  DO  LOOP  TO  HANDLE  DAMAGE  ♦ NON-STO.  PARAMETERS 
C I T 1 IS  THE  SUBSCRIPT  OF  THE  FIRST  DAMAGE  DATA  WORD  IN  INPUT  A ARRAY 
C J IS  THE  INDEX  FOR  THE  PARAMETERS  IN  THE  OUTPUT  RECORD 
IT1  = 1 
I T 2 * 12 
50  18  = 2 
J = 21 

I T 2 = 1 T 2 ♦ KOPT 
DO  60  I = I T I , I T 2 

J = J ♦ 1 

C TEST  FOR  PRESENCE  OF  DATA  VALUE 
IF  I All)  .EO.  0.  1 GO  TO  55 
IF!  1 .GT.  I T 1 + 2 1 IR  = 1 
IF ( I .GT.  IT1  +4)  1 R = 0 

CALL  REFFNCO!  AM),  IREF  S ! I- I T 1 ♦ IR  ) I,  RETURNS  156) 

53  RECORD!  J ) = AIM 
GO  TO  60 

55  RECORDIJ  ) = XNEGIND 
GO  TO  60 

C ERROR  RETURN  ON  REFERENCE  ID  OUT  OF  RANGE,  STORE  ZERO  FOR  REF. 

56  IZERO  = 0 

PRINT  900,  J,  ID,A(I),  I RE FS < I- 1 T1 ♦ I R ) 

CALL  REFENCD!  All),  IZERO  ),  RETURNS  1 56 ) 

RECORD ( J ) = All) 

60  CONT  1NUE 
RETURN 

ENTRY  BOTHTRN 
I T 1 = 21 
I T 2 * 32 
GO  TO  10 

900  FORMAT!  1H0,//  * REFERENCE  OUT  OF  RANGE  FOR  DATA  ITEM  NO.  • 15, 

1 * FOR  DEVICE  * , A10,  * VALUE  IS  * E12.3,  * REF  IS  »,  03  / * OLD 
2REFERENCE  NOT  CHANGED  # ) 

END 

SUBROUTINE  SORTKEYI  KEY,  LENGTH  ) 

C SUBROUTINE  TO  SORT  THE  NAMED  KEY  ARRAY 
DIMENSION  KEY ( 1 > 

LI  * LFNGTH  - 1 
DO  30  I * 1 , LI 
K2  = KF  Y I 2» I ) 
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K 3 = KEY (2*l«  l ) 

11=1*1 

DO  20  J = 11.  LENGTH 

1 F I KEYC2*I)  .LT.  KEY I 2»  J ) 1 GO  TO  20 
KEYl 2*1 ) = KEYI2*J) 

KE  Y( 2»  I*  1 I = KE Y I 2» J+ 1 ) 

KEYl  2»J)  = K.> 

KEYl 2*J*1 ) = K3 
K 2 = KEY (2*1  ) 

K 3 = K E Y ( 2 » 1 ♦ i ) 

20  CONT  1NUE 
30  CONT  INUE 
RETURN 
END 

SUBROUTINE  DTAREAD  I A,  N,  1 DFLG  ) 

01  ME  NSION  Alii 

CUMMON  /A/ID,  LNTHF1L,  KOPT,  10PTS12),  1 REFS (15)  , IDXTRA,  1BLANK , 

1 IZERO.IBOTH,  TRAC,  DAHG,  XN  EG  I NO  , KEYI501),  L NT  HR EC , CHNGE 
INTEGER  CHNGE 
C READ  INPUT  DATA  CARDS 
J = 7 

READ  15,850)  ID,  ( AID,  1=  1,J  ) 

5 1FI  J.GE.  N ) GO  TO  10 
J 1 = J ♦ 1 
J - J ♦ 8 

READ  (5,860  ) < All),  I = J1,J  ) 

GO  TO  5 

10  DO  20  I * l.LNTHFIL 

IF  | KE  Y ( 2 * I ) .EQ.  ID  ) GO  TO  AO 
20  CONT INUE 

C NO  MATCH  IN  NAMED  KEY  INDEX  WITH  CURRENT  "ID" 

IDFLG  = 0 
RETURN 

C MATCH  FOUND  IN  NAMED  KEY  INDEX  WITH  CURRENT  "ID" 

AO  IDFLG  = ID 

IF!  I0PTSI1)  .NE.  CHNGE  ) GO  TO  50 
CALL  D FC  OOLN ( KEY(2»1+1),  LNTHREC  ) 

50  RETURN 

850  FORMAT  I A10,  7E10.1  ) 

860  FORMAT!  8E10.1  ) 

END 

SUBROUTINE  RE  F ENC  D ( OTA,  IREF  I,  RETURNS { I ) 

C SUBROUTINE  TO  STORE  AN  ENCODED  REFERENCE  INTO  THE  THREE  LEAST  SIGNIFICANT 
L OCTAL  CHARACTERS  OF  A REAL  VARIABLE  DATA  WORD 
DATA  MASK1  / 7777 77777 7 777 77 7700 OB  / 

I F ( IREF  .GT.  7 77B  ) GO  TO  20 

DT  A = I AND  I DT  A , MASK  1 I .OR.  IREF  ) 

RETURN 
20  RETURN  I 
END 

SUBROUTINE  DECODLNI  K,  LNTHREC  ) 

C SUBROUTINE  TO  DECODE  THE  RECORD  LENGTH  FROM  THE  DATA  IN  NAMED  INDEX  ARRAY 
C THIS  OATA  IS  APPARENTLY  CONTAINED  IN  THE  12TH  THRU  19TH  OCTAL  CHARACTERS  OF 
C THE  ODD  NUMBERED  WORDS  OF  THF  NAMED  KEY  INDEX,  EXCLUSIVE  OF  THE  FIRST  WORD 
DATA  MASK  / 077 77777700000000000B  / 

C ZERO  OUT  ALL  OCTAL  CHARACTERS  EXCEPT  THE  RECORD  LENGTH 
KK  = AND!  K,  MASK  ) 
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C SHIFT  RfcCORD  LENGTH  TO  LOW  OROER  BITS  OF  THE  DATA  WORD,  IN  INTEGER  FORMAT 
LNTHREL  = SHIFT ( KK,  -33  I 
RETURN 
END 

SUBROUTINE  FINDREFI  DTA,  IREF  ) 

C SUBROUTINE  TO  DECODE  A 3 OCTAL  DIGIT  REFERENCE  STORED  IN  THE  3 LEAST 
C SIGNIFICANT  OCTAL  CHARACTERS  OF  A REAL  VARIABLE  DATA  WORD 
DATA  MASK2  / 00000000000000000777B  / 

IREF  = AND!  DTA,  MASK-2  1 

RETURN 

END 
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EMCPR,CM69000,T35. 

TASK  ,TNEM7  1603  .PWPRMPT  ,TRTS . RUZ  1C 
ATT ACH.TAPEll, DIODES, ID^EM71603 . 

FTNIR=2,LI 
l GO. 

W 

PROGRAM  TSTUPDT  11 NPUT , OUTPUT , TAPE  5 = 1 NPUT , T AP E fc  i UTPUT , TAPE  1 1 I 
DIMENSION  DTAI90),  OUTPT(fcO),  lOUTPTIfcO),  KEYIS01),  IDTAI90I 
EQUIVALENCE!  OUTPT.IOUTPT  I,  C OTA,  IOTA  I 
DATA  IBLANK  / 10H  / 

C PROGRAM  TO  READ  ♦ CHECKOUT  THE  UPDATED  SEMICONDUCTOR  DATA  FILE 
CALL  OPENMSI  11,  KEY,  500,  1 I 
MOUNT  = 0 

C PRINT  OUTPUT  LABEL 
PRINT  100 

C FIND  NUMBER  OF  ELEMENTS  IN  DATA  FILE 
DO  20  I = 2,  500,  2 
IF ( KEY!  II  .NE.  0 I GO  TO  20 
LAST  = (1/21  -1 
GO  TO  25 
20  CONT  INUE 
PRINT  200 

200  FORMAT!  » END  OF  INDEX  NOT  FOUND,  JOB  TERMINATED  • I 
STOP 

25  DO  50  J = 1,  LAST 

CALL  DEC  ODLN I KEVI2*Jdl,  LNTHREC  I 
L BLANK  OUT  OATA  AREA 

CALL  BLNKFILI  DT A , AO  I 

CALL  READMS!  11,  C T A , LNTHREC,  KEYI2*J)  I 
C CHECK  STD.  TRAC  DATA  WORDS  FOR  EXISTENCE  OF  DATA 
DO  30  I = 1,9 

ENCODEdO,  901,  IOUTPT(I)  ) I BLANK 

IF  1 1 DT  A! I ) .LT .9000 777777 7 777 777000 B I ENCODE ! 1 0 , 90 , 1 UU TP T ! I III DT A ( II 
30  CONT  INUE 

I OUT  PT (10)  * I DT  A 1 10  ) 

C CHECK  IF  RECORD  CONTAINS  DAMAGE  PARAMETERS 
IF !L  NTHREC .GE .1 1 IGO  TO  35 

PRINT  800«KEY(2°J)«I  IOUTPT (I  I, 1-1, LNTHREC) 

GO  TO  50 

35  DO  90  I * II,  LNTHREC 

ENCODEdO,  901  ,IOUTPTII)  I IBLANK 
ENCODE ( 10,901  , IOUTPT ! 1+LNT HR EC-101  I IBLANK 
C IS  DATA  PRESENT  FOR  THIS  PARAMETER 

I F 1 1 DT  A I I ) .GE.  90 00 77777777777770 00 B 1 GO  TO  90 
CALL  FINDREF  ( DTAdl,  IREF  I 
ENCODEdO,  90,  IOUTPT  III  I IDTAI1) 

CALL  OCTINTG!  IREF,  IR  I 

ENCODE!  3,  903,  I OUTP  T (I  ♦(.  MTHREC  - 10  I I IR 
90  CONT  INUE 

KOUNT  = KOUNT  •*  1 
I F I KOUNT  .LT  . 12  I GO  TO  95 
PRINT  100 
KOUNT  * 1 

95  LI  * LNTHREC  ♦ 1 

L 2 = 2 * LNTHREC  - 10 

PRINT  BOO  ,KE  Y ( 2° J 1 , ( lOUTPT(I),  1 * 1,  LNTHREC  I 
PRINT  801,  ( IOUTPT! 1 1 , I = LI,  L2  I 
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50  CONT 1NUE 
PRINT  850 
STOP 

C ANUMBE  R OF  CHARACTERS  PER  LINE  IN  FORMAT  100  ARE  1 29/ 1 26/79/1 3A  • 

100  FORMAT ( 1H1,  ‘DEVICE*,  10X,  *IS«,  10X,  *M0*.  9X,  *RDL*,  9X,  *CDO*, 

1 9X,  »VDB1‘,  9X  t ‘TO*,  9X , *1PPD«,  9X,  «VB»,  7X,»SURGt  I • » 5X, 

2 ‘TRAC  REF*  / 1 5 X t *R  BULK*,5X,  ‘SURGE  2* , 5X,  ‘SURGE  2*,  5X, 

3 * K DAMAGE*,  AX,  »K  DAMAGE*,  AX,  *K  DAMAGE*,  8X,  «K*,  11X,  *K*, 

a ivx,  *k*,iix,*k*  / iax , ‘Forward* , 3x,  *revrse  ius«,  ax, 

5 *RE  V 10US»,  3X,*REV  <50NS  *, 3X , *RE  V >50NS*,  AX,  *FORWARD*/  15X, 

6 */  RE  F • ‘ »bX  , */  REF.*,6X,*/  REF.*,6X,*/  REF.*,6X,*/  REF.*,6X, 

7 */  RE  F . * ,6X , */  REF.*,6X,*/  REF.*,6X,*/  REF.*,6X,*/  REF.*,bX  ) 

300  FORMAT!  //1H  , 11(A10,2X)  / I3X,  11(A10,2X>  ) 

801  FORM  AT  ( 16X  , 1HA3.9X)  ) 

802  FORMAT!  IX, 020,  2X,  020,  2X,  020,  2X,  020,  2X,  020,  2X,  020,  / ) 

850  FORMAT!  1H1,  ‘TEST  OF  FILE  COMPLETED  « ) 

90  FORM  AT ( E 1 0 • 3 I 

901  FORM  AT ( A 1 0 ) 

902  FORM  AT (020) 

903  FORMAT!  13  ) 

END 

SUBROUTINE  0CT1NTG  ( IREF,  IR  ) 

THIS  SUBROUTINE  CONVERTS  AN  OCTAL  INTEGER  CONSTANT  TO  A DECIMAL  INTEGER 
WHICH  WILL  PRINT  OUT  UNDER  AN  I FORMAT  EXACTLY  AS  THE  OCTAL  NUMBER 

WOULD  PRINT  UNDER  AN  0 FORMAT THIS  IS  A NECESSARY  INTERMEDIATE 

STEP  IN  GOING  FROM  0 FORMAT  TO  A FORMAT 

THE  ROUTINE  IS  CURRENTLY  LIMITED  TO  HANDLE  ONLY  3 DIGIT  NUMBERS 

DATA  MSI,  MS2,  MS3  / 00000000000000000007B , 00000000000000000070B , 

1 000000000000000007008  / 

K 1 = AND!  IREF,  MSI  ) 

K 2 = AND!  IREF,  MS2  ) 

KK2  = SHIFT!  K 2 , -3  ) 

K3  = AND!  IREF,  M S3  ) 

K K 3 = SHIFT!  K 3 , -6  I 
IP  = 100  *KK3  ♦ 10  *KK2  ■*  K 1 
RETURN 
END 

SUBROUTINE  BLNKFILI  A,  N ) 

DIMENSION  All  I 

DATA  B/A0007777777777777000B  / 

DO  10  I * 1 ,N 
10  A(l)  * B 
RETURN 

ENO 

SUBROUTINE  DECODE N ( K,  LNTHREC  ) 

C SUBROUTINE  TO  DECODE  THE  RECORD  LENGTH  FROM  THE  DATA  IN  NAMEO  INOEX  ARRAY 
C THIS  DATA  IS  APPARENTLY  CONTAINED  IN  THE  12TH  THRU  19TH  OCTAL  CHARACTERS  OF 
L ThF  ODD  NUMBERED  WORDS  OF  THE  NAMED  KEY  INDEX,  EXCLUSIVE  OF  THE  FIRST  WORD 
DATA  MASK  / 077777777000000000006  / 

C ZERO  OUT  ALL  OCTAL  CHARACTERS  EXCEPT  THE  RECORD  LENGTH 
KK  = AND!  K,  MASK  I 

C SHIFT  RECORD  LENGTH  TO  LOW  ORDER  BITS  OF  THE  DATA  WORD,  IN  INTEGER  FORMAT 
LNTHREC  = SHIFT!  KK  , -33  ) 

RETURN 
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END 

SUBROUTINE  EINDREFI  OTA,  IREF  ) 

C SUBROUTINE  TO  DECODE  A 3 OCTAL  DIGIT  REFERENCE  STORED  IN  THE  3 LEAST 
C SIGNIFICANT  OCTAL  CHARACTERS  OF  A REAL  VARIABLE  DATA  hORD 
DATA  MASK2  / 00000000000000000777B  / 

IREF  = AND  I DT  A f MASK 2 I 
RETURN 
END 
W 
V 
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EMCPR,CM64000,T100. 

T ASK, TNEM7 1603  .PWPRHPT  , TRTS  . RUZ1C 
ATTACH, TAP  Ell, TRANS  , IQ=EM71603. 

FTN. 

LOO. 

H 

PROGRAM  TRNUPDT  ( 1 NPUT .OUTPUT , TAPE5  = I NPUT , TAPES =OUTPUT , TAPE  11  ) 
DIMENSION  DTAI50),  OUTPTffcO),  IDUTPTUOl,  KEY(525),  IDTAI501 
DIMENSION  NCHARI4I 

EQUI  VALENCE  t OUT  PT  , I OllTPT  I,  1 DTA,  IDTA  > 

DATA  IBLANK  / 10H  / 

DATA  NCHAR/  7,  8,  6,  8 / 

C PROGRAM  TO  READ  ♦ CHECKOUT  THE  UPDATED  SEMICONDUCTOR  DATA  FILE 
REWIND  11 

CALL  OPENMSI  11,  KEY,  523,  1 J 
KOUNT  = 0 

C PRINT  OUTPUT  LABEL 
CALL  PRNTHD 

C FIND  NUMBER  OF  ELEMENTS  IN  DATA  FILE 
DO  20  I = 2,  522,  2 
IF  I KEYI I I .NE.  0 I GO  TO  20 
LAST  = (1/21  -1 
GO  TO  25 
20  CONT  1NUE 
PRINT  200 

200  FORMAT ( * END  OF  INDEX  NOT  FOUND,  JOB  TERMINATED  * I 
STOP 

25  DO  50  J = 1,  LAST 

CALL  DEC ODLN ( KEV(2*J+1I,  LNTHREC  1 
C BLANK  OUT  DATA  AREA 

CALL  BLNKF IL ( OTA,  50  1 

CALL  RE ADMS ( 11,  DTA,  LNTHREC,  KEV(2*J)  I 
C CHECK  STD.  TRAC  DATA  WORDS  FOR  EXISTENCE  OF  DATA 
DO  30  I - 1,20 

ENCODEdO,  901,  IOUTPTdl  1 1 BLANK 

IF  I I DTA  ( I).  LT.  <.000777777  77  77777000B  1 ENCODE  (10, 90,  I0UTPTII11  IDT  A(  I 1 
30  CONT  INUE 

I OUT  PT ( 2 1 ) * 1DTA121) 

C I F ” 0 T A •'  INPUT  RECORO  DID  NOT  CONTAIN  TRAC  REF.  SET  IT  TO  BLANK  FIELD 

1FILNTHREC  -LT.  21  1 !0UTPT(2ll  * IBLANK 
C INITIALIZE  MAX  POSSIBLE  OUTPUT  FIELD  AFTER  STD  TRAC  PARAMETERS  TO  BLANKS 

DO  38  I * 22,  60 

ENCODEdO, 901, IOUTPTdl  I IBLANK 
38  CONT  INUE 

C CHFCK  IF  R F CORD  CONTAINS  DAMAGE  PARAMETERS 
DO  40  1 = 22,  33 

C IS  DATA  PRESENT  FOR  THIS  PARAMETER 

IFdCTA(I)  .GE.  4000 777777 7777 777000B  1 GO  10  40 
CALL  F1NDREF  ( DTA(I),  IREF  ) 

ENCODEdO,  90,  IOUTPTdl  1 lDTAdl 
CALL  UCTINTG1  IREF,  IR  I 

ENCODE!  3,  903,  I OUT PT (I +LNT HREC -2 1 1 1 IR 
40  CONT  INUE 

DO  42  I * 34,  37 

IF ( I .GT.  LNTHREC  1 GO  TO  43 

1 F (I DT A( 11  .GE.  4000777 777 77 77777000B  1 GO  TO  42 
CALL  FINDREF  t DT  A ( 1 1 , IREF  1 
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JK=  I - 33 
N = NCHAR( JK) 

ENCODE ( 10  , 1,  FHT  ) N 

ENCODE  IN  ,FMT  , IOUTPTI1)  ) 1DTAII) 

CALL  UCT1NTG!  I RE  F , I R ) 

ENCODE!  3,  903,  1 OUTPT  i 1 ♦LNTHREC -21 1 » IR 

42  CONTINUE 

43  IF (L  NT  HR  FC  .LT.  20  ) GO  TO  50 
KOUNT  = KOUNT  ♦ 1 

IF!  KOUNT  .LT.  12  J GO  TO  45 
CALL  PRNTHD 
KOUNT  = 1 

45  PRINT  800  ,KE Y ( 2 * J I , IIOUTPTII),  I * 1 , 10  ),  1 OUTPT l 22) , 10UT PT 1 23) 

J1  = LNTHREC  ♦ 1 
J2  = LNTHREC  ♦ 2 

PRINT  810,I0UTPTt21),ll0UTPT!I),  1 * 11,20  ) , I OU TPT I J 1 1 , IOUTPT I J2 I 
810  FORMAT!  1H  , A10,  10A10,  4X.A3,  7X , A3  I 
PRINT  820, ( IOUTPT II),  I = 24,  LNTHREC  I 
820  FORMAT!  1H  , 10A10,  A8  , A9 . A7,  A8  I 
J1  = LNTHREC  ♦ 3 
L 2 = 2 * LNTHREC  - 21 
PRINT  830,  1I0UTPT1I),  1=  J1 , L2  I 
830  FORMAT!  1H  , 4X,  9IA3,  7X1,  21  A3,  bX,  A3,  5X  ) I 
50  CONT  1NUE 
PRINT  850 
STOP 

1 FORMAT!  2HI E , II,  3H.2I  I 
800  FORMAT!  1H0,  A10,  12A10  1 
850  FORMAT!  1H1,  »T  E ST  OF  FILE  COMPLETED  * I 
90  FORM  AT IE10.3) 

901  FORM  AT ! A 1 0 ) 

902  F ORM  AT  1 020  I 

903  FORMAT!  13  I 
END 

SUBROUTINE  0CT1NTG  I 1 RE  F , IR  I 
C 

C THIS  SUBROUTINE  CONVERTS  AN  OCTAL  INTEGER  CONSTANT  TO  A DECIMAL  INTEGER 
C WHICH  WILL  PRINT  OUT  UNDER  AN  I FORMAT  EXACTLY  AS  THE  OCTAL  NUMBER 

C WOULD  PRINT  UNDER  AN  0 FORMAT THIS  IS  A NECESSARY  INTERMEDIATE 

C STEP  IN  GOING  FROM  0 FORMAT  TO  A FORMAT 
C 

C THE  ROUTINE  IS  CURRENTLY  LIMITED  TO  HANDLE  ONLY  3 DIGIT  NUMBERS 
C 

DATA  MSI,  MS2 , MS  3 / OOOOOOOGOOOOOOOOOOD7B , 00000000000000000070B , 

1 00000000000000000700B  / 

K 1 - AND!  1REF  , MSI  I 
K2  = AND!  IREF,  MS2  I 
KK2  = SHIFT!  K2 , -3  ) 

K 3 * AND!  IREF,  MS3  > 

KK  3 = SHIFT!  K3 , -6  ) 

IR  = 100  *KK3  ♦ 10  «KK2  ♦ K 1 

RETURN 

END 

SUBROUTINE  BLNKFIL!  A,  N I 
DIMENSION  All) 

DATA  B/40007777777777777000B  / 

DO  10  1 = 1 , N 
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10  Adi  = B 
RETURN 
END 

SUBROUTINE  DECUDLN I K,  LNTHAEC  ) 

C SUBROUTINE  TO  DECODE  THE  RECORD  LENGTH  FROM  THE  DATA  IN  NAMED  INDEX  ARRAY 
C THIS  DATA  IS  APPARENTLY  CONTAINED  IN  THE  12TH  THRU  19TH  OCTAL  CHARACTERS  OF 
C THE  ODD  NUMBERED  WORDS  OF  THE  NAMED  KEY  INDEX,  EXCLUSIVE  OF  THE  FIRST  WORD 
DATA  MASK  / 07777777700000000000B  / 

C ZERO  OUT  ALL  OCTAL  CHARACTERS  EXCEPT  THE  RECORD  LENGTH 
KK  - AND!  K,  MASK  I 

C SHIFT  RECORD  LENGTH  TO  LOW  ORDER  BITS  OF  THE  DATA  WORD,  IN  INTEGER  FORMAT 
LNTHREC  * SHIFT!  KK,  -33  1 
RETURN 
END 

SUBROUTINE  F1NDREFI  DT A , IREF  I 

C SUBROUTINE  TO  DECODE  A 3 OCTAL  DIGIT  REFERENCE  STORED  IN  THE  3 LEAST 
C SIGNIFICANT  OCTAL  CHARACTERS  OF  A REAL  VARIABLE  DATA  WORD 
DATA  MASK2  / 00000000000000000777B  / 

IRFF  = AND!  DT  A , MASK?  ) 

RETURN 

END 

SUBROUTINE  PRNTHD 

DIMENSION  HEADSIIO),  HE ADS  1 ( 10 ) 

DATA  HEADS/10H  HFEN  , 1 OH  HFE I ,10H  TN  ,10H  TI 
1 , 1 OH  ICS  , 10H  MC  , 1 OH  CCO  ,10H  VCBI  ,10H  RC 
2L  * 1 OH  IES  / 

DATA  HEADS1/10H  ME  ,10H  CEO  ,10H  VEBI  ,10H  REL 
1 , 10 H IPPC  , 1 OH  1 PPE  , 10H  C-BBDV  ,10H  E-BBDV  ,10H  SURG 

2 E ZC  , 10H  SURGE  ZE  / 

PRINT  96, HEADS 
PRINT  14A.HEADS1 
PRINT  100 
PRINT  101 
RETURN 

96  FORM  AT ( 1 HI , *DEVICE*,  5X.10A10,  3X  , • BULK  R • I 

100  FORMAT ( 1 HO ,9X  , *ZSURGE  C-B#,  10X,*ZSURGE  E-B*,  9X , *D AMGE  K(<50NS)» 

1,  6X,  *D  AMGE  K I >50NS  I * , 8X,  «K  FORWARD*,  9X,  *K*,  7X,  *K«,  8X,  *K* 

2,  *K  * ) 

101  FORM  AT { 1 H , 2X , 21*1  US*.  5X , *10  US*.  7X  ),  2!*C-B»,  6X , *E-B*,8X 
1 I,  *C -B  * , 7X  , *E -B  * , 6X  , »C -B* , 5X,  *E-B*,  6X ,*C-B* ,AX , *E-B «/lH  ) 

144  FORMAT!  1H  , *TKAC  RE  F « , 3X,  10A10,  3X,  *C-B*,  7X,  *E-B*  1 
END 

V 
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APPENDIX  C.~ SUBROUTINE  DESCRIPTIONS 


C-l.  INTRODUCTION 

Appendix  C presents  a detailed  description  of  each  of  the 
subroutines  required  for  the  main  programs  described  in  the  main  body  of 
the  report.  The  variables  used  in  the  subroutines  are  defined,  the 
purpose  and  use  of  the  subroutines  are  explained,  and  the  interrelations 
of  the  subroutines  are  specified.  A detailed  logical  flowchart  of  each 
subroutine  is  included  with  each  description. 


C-2 . SUBROUTINE  VARIABLE  DEFINITIONS  AND  PROGRAM  EXPLANATIONS 

C-2.1  REVTRAC (A, RECORD, IFILE) 

Additional  entries  to  REVTRAC  are  REVBOTH  and  REVDAMG. 

C-2. 1.1  Variable  Definitions 

A Real  array  containing  new  data  values  to  be  put  on  mass  storage 

record,  of  the  specified  ID 

I Subscript  used  for  elements  of  the  A array  and  IREFS  array,  as 

well  as  standard  TRAC  parameter  elements  of  the  RECORD  array 

I BOTH  Hollerith  constant  used  to  check  if  the  BOTH  option  was 

selected 

ID  Named  index  value  for  the  record  currently  being  processed 

IFILE  Logical  unit  for  the  mass  storage  file  from  which  the  existing 
data  record  is  to  be  read 

IOPTS  Integer  array  containing  the  options  selected  by  the  user's 

input  in  the  main  program 

IR  Integer  variable  used  to  alter  the  indexing  of  the  IREFS  array 

IREFS  Array  containing  new  references  for  the  data  base  or, 

alternatively,  "-0"  to  indicate  that  an  existing  reference  is 
to  be  deleted 

IRF  Variable  used  to  save  an  old  reference  which  is  to  be  combined 

with  a new  data  value 

IT1  Lower  index  limit  for  damage  parameters  to  be  processed 
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IT2 

IZERO 

J 


KOPT 


LNTHDIO 

LNTHREC 

RECORD 


TRACREF 


XNEGIND 


C-2.1.2  Subroutine  Explanation 

Subroutine  REVTRAC  (fig.  C-l)  checks  for  additions  or 
deletions  to  the  existing  diode  data  file.  REVTRAC  is  the  entry  used 
when  only  TRAC  data  are  to  be  added  or  altered  in  the  existing  record. 
The  entry  REVDAMG  is  used  when  only  damage  data  are  to  be  revised,  and 
the  entry  REVBOTH  is  used  when  both  types  of  data  are  to  be  revised. 

This  subroutine  assumes  that  the  named  index  was  previously 
searched  for  the  record  ID  specified.  This  function  is  performed  by 
DTABSE. 

It  checks  each  input  data  field  for  the  presence  of  (1)  a 
minus  zero,  (2)  a blank  or  plus  zero,  and  (3)  a nonblank,  nonzero  field. 
A minus  zero  is  used  to  indicate  that  the  corresponding  word  on  the 
existing  data  file  is  to  be  deleted,  and  there  is  no  datum  with  which  to 
replace  it.  A blank  input  data  field  indicates  that  the  corresponding 
existing  data  field  is  to  be  left  intact.  A nonzero,  nonblank  field 
must  be  actual  data  to  replace  existing  data  in  the  corresponding  word 
of  the  data  file.  A notable  limitation  is  that  a new  data  value  of 
precisely  zero  cannot  be  read  because  the  program  necessarily  checks  for 
blank  fields,  which  on  the  CDC  6000  series  computers  cannot  be 
distinguished  from  zeros.  It  is  suggested  that  if  a zero  is  actually 
desired,  a data  value  such  as  1.0E-70  should  be  used  instead. 


Upper  index  limit  for  damage  parameters  to  be  processed 
Integer  zero  constant 

Subscript  used  for  indexing  the  damage  parameters  of  the  RECORD 
array 

Number  of  optional  damage  parameters  to  be  included  in  the 
revised  record 

Number  of  data  records  contained  in  the  diode  mass  storage  file 

Number  of  data  words  in  the  data  record  being  processed 

Real  array  containing  the  revised  or  corrected  record  to  be 
written  to  the  mass  storage  file 

Variable  containing  the  reference  source  for  the  TRAC  data  in 
the  record  being  considered 

Variable  containing  a negative  indefinite,  which  is  stored  in 
output  words  for  which  there  are  no  data 


L 


STORE  DATA 
IN  OUTPUT 


Kill  NCD 
(REF) 
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Subroutine  REVTRAC  utilizes  subroutine  FINDREF  when  a data 
value  is  to  be  changed,  but  not  the  reference.  It  also  utilizes 
subroutine  REFENCD  to  encode  a three  octal  digit  reference  into  the 
three  least  significant  octal  digits  of  a specified  real  data  word.  For 
a given  existing  data  word,  the  data  value  or  the  reference  or  both  can 
be  changed. 

REVTRAC  reads  the  existing  data  from  the  mass  storage  file 
with  the  record  ID  specified  through  common,  makes  the  changes  to  the 
record  which  have  been  specified,  and  stores  this  information  in  the 
RECORD  array.  The  RECORD  array  is  a formal  parameter  of  the  subroutine 
by  which  the  data  are  transmitted  back  to  the  main  program,  which  writes 
them  on  the  disk  file. 


C-2.2  RVSTRAC (A, RECORD, IFILE) 

Additional  entries  to  RVSTRAC  are  RVSDAMG  and  RVSBOTH. 

C-2.2.1  Variable  Definitions 

All  but  one  of  the  variables  in  this  subroutine  are 
identical  in  use  and  meaning  to  those  in  subroutine  REVTRAC.  The  one 
exception  is  the  variable  LNTHFIL,  which  replaces  UJTHDIO. 

LNTHFIL  Number  of  data  records  contained  in  the  transistor  mass  storage 
data  file 

C-2.2. 2 Subroutine  Explanation 

Subroutine  RVSTRAC  (fig.  C-2)  checks  for  additions  or 
deletions  to  the  existing  transistor  data  file.  RVSTRAC  is  the  entry 
used  when  only  TRAC  data  are  to  be  added  or  altered  in  the  existing 
record,  the  entry  RVSDAMG  is  used  when  only  damage  data  are  to  be 
revised,  ^.nd  the  entry  RVSBOTH  is  used  when  both  types  of  data  are  to  be 
revised. 

This  subroutine  operates  in  exactly  the  same  fashion  as 
subroutine  REVTRAC.  The  only  difference  is  that  it  is  applied  to  the 
transistor  data  base,  which  has  more  and  different  parameters  than  the 
diode  data  file.  The  transistor  data,  however,  are  also  separated  into 
standard  TRAC  data  parameters  and  damage  data  parameters.  The  exact 
nature  of  these  parameters  is  defined  in  section  4.2  in  the  main  body  of 
this  report. 
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C-2.3  TRACDTA (A, RECORD, I FILE) 

Additional  entries  to  TRACDTA  are  DAMGDTA  and  BOTHDTA . 
C-2.3.1  Variable  Definitions 


BLANK  Real  variable  containing  10  hollerith  blank  characters 
IBLANK  Integer  variable  equivalenced  to  BLANK 

IT3  Integer  variable  used  as  upper  limit  on  the  number  of  words  in 

the  new  record,  when  data  exist  only  for  TRAC  parameters 

All  other  variables  in  this  subroutine  are  identical  in  use 
and  meaning  to  the  variables  of  the  same  names  in  subroutine  REVTRAC. 

C-2.3. 2 Subroutine  Explanation 


Subroutine  TRACDTA  (fig.  C-3)  is  used  to  add  new  records  to 
the  existing  diode  data  file.  The  TRACDTA  entry  is  used  when  only  TRAC 
data  are  available,  the  DAMGDTA  entry  is  used  when  only  damage  data  are 
available , and  the  entry  BOTHDTA  is  used  when  both  types  of  data  are 
included  in  the  new  diode  data  record.  (See  fig.  C-3  on  p.  83.) 

New  TRAC  data  are  stored  in  the  first  nine  words  of  the 
output  record  area.  If  no  data  are  present  for  any  one  of  these  words, 
a negative  indefinite  (40007777777777777000  octal)  is  stored,  instead, 
in  the  corresponding  word  of  the  output  record  area.  This  output  record 
is  returned  to  the  main  program,  which  performs  the  operation  of 
actually  writing  the  new  record.  The  variable  TRACREF  (or  a blank  field 
if  there  is  no  TRAC  reference)  is  stored  as  the  next  word  of  the  output 
record.  The  number  of  damage  data  words  to  be  stored  is  calculated  by 
adding  the  value  of  KOPT  to  the  five  damage  parameters  always  allocated 
in  the  output  record.  These  damage  data  words  are  stored  with  their 
references  encoded  into  the  three  least  significant  octal  digits  of  the 
data  words . 

C-2.4  TRACT RN (A, RECORD, IFILE) 

Additional  entries  to  TFACTRN  are  DAMGTRN  and  BOTHTRN. 

C-2.4.1  Variable  Definitions 


All  variables  in  this  subroutine  are  identical  in  use  and 
meaning  to  variables  of  the  same  name  in  subroutine  TRACDTA. 
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IN!  K\ 
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ENTRY 
\OAMGl)T  A/ 
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Figure  C-3.  Subroutine  TRACDTA . 


83 


APPENDIX  C 


C- 2.4.2  Subroutine  Explanation 

Subroutine  TRACTRN  (fig.  C-4)  adds  new  records  to  the 
existing  transistor  data  base.  The  TRACTRN  entry  is  used  if  there  are 
only  TRAC  data  available,  the  entry  DAMGTRN  is  used  when  there  are  only 
damage  data,  and  the  entry  BOTHTRN  is  used  when  both  types  of  data  are 
included  in  the  new  transistor  data  record.  (See  fig.  C-4  on  p.  85.) 

TRACTRN  performs  the  same  logical  processes  as  TRACDTA. 
The  difference  is  that  TRACTRN  creates  new  transistor  data  records.  Its 
execution  is  exactly  analogous  to  the  execution  of  TRACDTA. 

C-2.5  DTAREAD (A,N, IDFLG) 


C-2.5.1  Variable  Definitions 


A Real  array  into  which  the  input  data  are  stored,  after  having 

been  read  from  cards 

CHNGE  Variable  containing  CHANGE  for  checking  options 

I Index  used  as  subscript  of  A array  and  KEY  array 

ID  Record  ID  for  comparison  with  ID's  in  named  index  array 

IDFLG  Formal  parameter  for  subroutine  DTAREAD 
IOPTS  Input  data  array  defining  the  options  selected 
J Upper  index  limit  for  reading  data  from  a card 

J1  Lower  index  limit  for  reading  data  from  a card 

KEY  Named  index  array 

LNTHDIO  Maximum  number  of  elements  in  KEY  array 

LNTHREC  Variable  used  to  store  the  length  of  the  record,  as  determined 
by  subroutine  DECODLN 

N Total  number  of  data  items  on  the  set  of  data  cards  to  be  read 

C-2.5.2  Program  Explanation 

In  subroutine  DTAREAD  (fig.  C-5),  the  record  ID,  to  be  used 
as  the  named  index,  and  the  first  seven  data  fields  are  read  from  the 
first  data  card.  Sucdeeding  data  cards,  each  containing  eight  fields, 
are  then  read  until  the  number  of  data  fields  read  is  greater  than  or' 
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equal  to  N,  the  maximum  number  of  such  fields.  The  named  index  elements 
of  the  existing  data  file  are  then  compared  with  the  record  ID 
specified.  If  a match  is  found,  this  record  ID  is  stored  in  IDFLG; 
otherwise,  a zero  is  stored  in  IDFLG. 

Then,  if  the  CHANGE  option  had  been  selected  on  the  record 
currently  being  processed,  subroutine  DECODLN  is  called  to  determine  the 
length  of  the  existing  record  before  returning  to  the  main  program. 

C-2.6  REFENCD (DTA, IREF) , RETURNS (I) 


C-2.6.1  Variable  Definitions 

DTA  Variable  into  whose  three  least  significant  octal  digits  a 

coded  three  octal  digit  reference  is  stored 

I Statement  number  in  calling  program  to  which  control  returns 

under  an  abnormal  return  condition 

IREF  Integer  variable  containing  coded  three  octal  digit  reference 

MASK1  Logical  mask  used  to  put  zeros  in  the  three  least  significant 

octal  digits  of  DTA  before  storing  a reference  there 

C-2.6. 2 Program  Explanation 


Subroutine  REFENCD  (fig.  C-6)  stores  the  three  least 
significant  octal  digits  of  a specified  integer  data  word  into  the  three 
least  significant  octal  digits  of  a real  data  word.  It  does  this 
without  altering  the  remaining,  more  significant  portion  of  this  real 
data  word.  (See  fig.  C-6  on  p.  88.) 

If  this  integer  data  word  contains  a value  greather  than 
777  octal,  then  a nonstandard  return  is  taken  to  the  calling  program. 

C-2.7  FINDREF (DTA, IREF) 


C-2.7.1  Variable  Definitions 

DTA  Real  data  word  from  which  the  three  least  significant  octal 

digits  are  to  be  extracted 

IREF  Integer  variable  into  which  a three  octal  digit  reference  is  to 
be  stored 

MASK1  Logical  mask  used  to  eliminate  from  consideration  all  but  the 
three  least  significant  octal  digits  of  a CDC  60-bit  word 
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C-2.7.2  Program  Explanation 


In  subroutine  FINDREF  (fig.  C-7) , a mask  and  a logical  AND 
are  used  to  extract  the  three  least  significant  octal  digits  from  the 
real  data  word  DTA.  This  information  is  stored  into  the  low  order 
portion  of  IREF.  DTA  is  unaltered  by  this  process. 
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Figure  C-7.  Subroutine  FINDREF. 


02.8  DECODLN  (K,  LNTHREC) 

02 .8.1  Variable  Definitions 

K Data  word  containing  several  pieces  of  information,  one  of 

which  is  extracted  by  this  subroutine 

KK  Variable  to  temporarily  hold  information  extracted  from  K 

LNTHREC  Record  length  obtained  by  operating  on  the  data  in  KK 


MASK 


Logical  mask  used  to  remove  from  consideration  all  the  octal 
digits  of  K which  do  not  contain  the  desired  information 
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C-2.8.2  Program  Explanation 

Subroutine  DECODLN  (fig.  C-8)  decodes  the  record  length 
from  the  data  in  a named  index  element  specified  by  K.  The  record 
length  is  contained  in  the  12th  to  19th  octal  digits  of  K (where  K is 
the  appropriate  odd  numbered  word  of  a named  index,  exclusive  of  the 
first  word  of  that  index) . 


Figure  C-8.  Subroutine  DECODLN. 
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A logical  AND  is  performed  to  obtain  the  data  in  the  12th 
to  19th  octal  digits  of  the  word  K.  This  information  is  then  shifted  to 
the  low  order  octal  digits  of  a data  word  and  stored  in  LNTHREC.  The 
variable  K is  unaltered  by  this  procedure.  Control  is  then  returned  to 
the  calling  program. 

C-2.9  OCTINTG (IREF,IR) 

C-2.9.1  Variable  Definitions 

IR  Resultant  three  digit  decimal  integer  variable 

IREF  Variable  containing  three  octal  digit  reference 

KK2  Variable  used  to  store  second  least  significant  octal  digit  of 

IREF  in  low  order  digit 

KK3  Variable  used  tc  store  third  least  significant  octal  digit  of 

IREF  in  low  order  digit 

Kl  Variable  used  to  store  least  significant  octal  digit  of  IREF 

K2  Variable  used  to  store  in  its  second  least  significant  octal 

digit  the  data  extracted  from  the  second  least  significant 
octal  digit  of  IREF 

K3  Variable  used  to  store  in  its  third  least  significant  octal 

digit  the  data  extracted  from  the  third  least  significant  octal 
digit  of  IREF 

MSI  Logical  mask  used  in  extracting  least  significant  octal  digit 

from  IREF 

MS2  Logical  mask  used  in  extracting  second  least  significant  octal 

digit  from  IREF 

MS 3 Logical  mask  used  in  extracting  third  least  significant  octal 

digit  from  IREF 

C-2.9. 2 Subroutine  Explanation 

Subroutine  OCTINTG  (fig.  C-9)  converts  an  octal  integer 
constant  to  a decimal  integer  constant  which  prints  under  an  I format 
exactly  as  the  octal  number  would  print  under  an  0 format.  This  is  a 
necessary  intermediate  step  in  going  from  an  0 format  to  an  A format. 
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Figure  C-9.  Subroutine  OCTINTG. 
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Each  of  the  three  octal  digits  of  IREF  is  individually 

extracted  and  stored  in  separate  words.  The  data  words  containing  the 

extracted  second  and  third  digits  are  each  shifted  within  their 
respective  locations  to  the  low  order  digit  of  the  same  word.  These 

three  digits  are  then  multiplied  by  1,  10,  and  100,  respectively,  to 

produce  a decimal  integer  constant  which,  when  printed  in  I format,  is 
identical  to  the  printing  of  IREF  in  octal  format.  The  result  is  stored 
in  IR,  and  the  subroutine  ends,  returning  to  the  calling  program. 

C-2.10  SORTKEY (KEY , LENGTH) 

C-2.10.1  Variable  Definitions 

I Numerical  index  incremented  for  each  record  of  the  file  to  be 
sorted 

II  Temporary  lower  limit  of  Do  loop  for  checking  the  KEY  array 

J Index  of  Do  loop  for  checking  the  KEY  array 

KEY  Array  containing  the  NAMED  INDICES  of  the  records  of  an 

associated  disk  storage  file  in  the  even  numbered  elements  of 
the  array  (The  odd  numbered  elements  of  the  array  contain 
information  on  other  characteristics  of  the  records  within  the 
associated  file.) 

K2  Temporary  storage  for  an  even  element  of  the  KEY  array 

K3  Temporary  storage  for  an  odd  element  of  the  KEY  array 

LENGTH  Number  of  data  records  in  the  disk  file 

LI  Upper  index  of  Do  loop,  defined  as  "LENGTH  - 1" 

C-2.10. 2 Subroutine  Explanation 


Subroutine  SORTKEY  (fig.  C-10)  sorts  the  elements  of  the 
KEY  array  in  pairs,  with  the  sort  performed  on  the  even  numbered  element 
of  the  pair,  according  to  the  standard  CDC  FORTRAN  collating  sequence. 
The  first  element  of  the  KEY  array  is  left  intact,  and  the  second  and 
third  elements  constitute  the  first  pair  within  KEY.  The  number  of 
pairs,  in  the  KEY  array,  to  be  sorted  is  defined  by  the  parameter 
LENGTH. 
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C-2.11  PRNTHD 

C-2.11.1  Variable  Definitions 

HEADS  Array  containing  hollerith  data  to  be  used  for  first  line  of 
header  in  each  printed  output  page 

HEADS1  Array  containing  hollerith  data  to  be  used  for  second  line  of 
header  in  each  printed  output  page 

C-2.11. 2 Program  Explanation 

Subroutine  PRNTHD  (fig.  C-ll)  is  utilized  to  print  out 
descriptive  headers  at  the  top  of  each  computer  printout  page  on  which 
data  from  the  transistor  data  base  will  be  listed.  The  array  of 
hollerith  fields  stored  in  HEADS  is  printed  as  the  first  line  of  the 
label.  The  array  of  hollerith  fields  stored  in  HEADS1  is  then  printed 
on  the  second  line  of  output.  Format  100  is  then  used  to  skip  a line 
and  print  a third  header  line.  Format  101  is  then  used  to  print  the 
last  line  of  the  header  label.  The  subroutine  then  returns  control  to 
the  calling  program.  (See  fig.  C-ll  on  p.  96.) 

C-2.12  BLNKFIL 

C-2.12.1  Variable  Definitions 

A Array  which  is  to  be  filled  with  the  constant  B 

B An  octal  40007777777777777000  constant  which  is  a negative 

indefinite  on  CDC  6000  series  computers 

N Number  of  elements  of  the  array  A which  are  to  be  filled  with  B 

C-2.12. 2 Program  Explanation 

Subroutine  BLNKFIL  (fig.  C-12)  stores  the  negative 
indefinite  constant  defined  as  B into  the  first  N locations  of  the  array 
A.  Control  is  then  returned  to  the  calling  program. 
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Figure  C-ll.  Subroutine  PRNTHD . 
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